/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / games / xmine.elc.z / xmine.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 39 3a 33 37 20 31 | 39 39 38 0a 3b 3b 3b 20 |:49:37 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 67 61 6d 65 |s-20.3/l|isp/game|
|000000a0| 73 2f 78 6d 69 6e 65 2e | 65 6c 0a 3b 3b 3b 20 65 |s/xmine.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 78 6d 69 6e 65 2e 65 6c |error "`|xmine.el|
|000001f0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|00000200| 6f 72 20 45 6d 61 63 73 | 20 32 30 22 29 29 0a 0a |or Emacs| 20"))..|
|00000210| 28 6f 72 20 28 62 6f 75 | 6e 64 70 20 27 63 75 72 |(or (bou|ndp 'cur|
|00000220| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 29 20 |rent-loa|d-list) |
|00000230| 28 73 65 74 71 20 63 75 | 72 72 65 6e 74 2d 6c 6f |(setq cu|rrent-lo|
|00000240| 61 64 2d 6c 69 73 74 20 | 6e 69 6c 29 29 0a 0a 0a |ad-list |nil))...|
|00000250| 23 40 32 39 20 58 45 6d | 61 63 73 20 4d 69 6e 65 |#@29 XEm|acs Mine|
|00000260| 20 76 65 72 73 69 6f 6e | 20 6e 75 6d 62 65 72 2e | version| number.|
|00000270| 1f 0a 28 64 65 66 63 6f | 6e 73 74 20 78 6d 69 6e |..(defco|nst xmin|
|00000280| 65 2d 76 65 72 73 69 6f | 6e 2d 6e 75 6d 62 65 72 |e-versio|n-number|
|00000290| 20 22 31 2e 38 22 20 28 | 23 24 20 2e 20 35 39 37 | "1.8" (|#$ . 597|
|000002a0| 29 29 0a 23 40 33 34 20 | 46 75 6c 6c 20 58 45 6d |)).#@34 |Full XEm|
|000002b0| 61 63 73 20 4d 69 6e 65 | 20 76 65 72 73 69 6f 6e |acs Mine| version|
|000002c0| 20 6e 75 6d 62 65 72 2e | 1f 0a 28 64 65 66 63 6f | number.|..(defco|
|000002d0| 6e 73 74 20 78 6d 69 6e | 65 2d 76 65 72 73 69 6f |nst xmin|e-versio|
|000002e0| 6e 20 28 66 6f 72 6d 61 | 74 20 22 58 45 6d 61 63 |n (forma|t "XEmac|
|000002f0| 73 20 4d 69 6e 65 20 76 | 25 73 20 62 79 20 4a 65 |s Mine v|%s by Je|
|00000300| 6e 73 20 4c 61 75 74 65 | 6e 62 61 63 68 65 72 20 |ns Laute|nbacher |
|00000310| a9 20 31 39 39 37 22 20 | 78 6d 69 6e 65 2d 76 65 |. 1997" |xmine-ve|
|00000320| 72 73 69 6f 6e 2d 6e 75 | 6d 62 65 72 29 20 28 23 |rsion-nu|mber) (#|
|00000330| 24 20 2e 20 36 38 30 29 | 29 0a 28 63 75 73 74 6f |$ . 680)|).(custo|
|00000340| 6d 2d 64 65 63 6c 61 72 | 65 2d 67 72 6f 75 70 20 |m-declar|e-group |
|00000350| 27 78 6d 69 6e 65 20 6e | 69 6c 20 22 54 68 65 20 |'xmine n|il "The |
|00000360| 77 65 6c 6c 20 6b 6e 6f | 77 6e 20 6d 69 6e 65 20 |well kno|wn mine |
|00000370| 73 65 61 72 63 68 69 6e | 67 20 67 61 6d 65 2e 22 |searchin|g game."|
|00000380| 20 3a 67 72 6f 75 70 20 | 27 67 61 6d 65 73 29 0a | :group |'games).|
|00000390| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|000003a0| 76 61 72 69 61 62 6c 65 | 20 27 78 6d 69 6e 65 2d |variable| 'xmine-|
|000003b0| 77 69 64 74 68 20 27 32 | 35 20 22 54 68 65 20 77 |width '2|5 "The w|
|000003c0| 69 64 74 68 20 6f 66 20 | 74 68 65 20 6d 69 6e 65 |idth of |the mine|
|000003d0| 20 66 69 65 6c 64 22 20 | 3a 67 72 6f 75 70 20 27 | field" |:group '|
|000003e0| 78 6d 69 6e 65 20 3a 74 | 79 70 65 20 27 69 6e 74 |xmine :t|ype 'int|
|000003f0| 65 67 65 72 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |eger).(c|ustom-de|
|00000400| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00000410| 78 6d 69 6e 65 2d 68 65 | 69 67 68 74 20 27 32 30 |xmine-he|ight '20|
|00000420| 20 22 54 68 65 20 68 65 | 69 67 68 74 20 6f 66 20 | "The he|ight of |
|00000430| 74 68 65 20 6d 69 6e 65 | 20 66 69 65 6c 64 22 20 |the mine| field" |
|00000440| 3a 67 72 6f 75 70 20 27 | 78 6d 69 6e 65 20 3a 74 |:group '|xmine :t|
|00000450| 79 70 65 20 27 69 6e 74 | 65 67 65 72 29 0a 28 63 |ype 'int|eger).(c|
|00000460| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00000470| 72 69 61 62 6c 65 20 27 | 78 6d 69 6e 65 2d 67 6c |riable '|xmine-gl|
|00000480| 79 70 68 2d 64 69 72 20 | 27 28 6c 6f 63 61 74 65 |yph-dir |'(locate|
|00000490| 2d 64 61 74 61 2d 64 69 | 72 65 63 74 6f 72 79 20 |-data-di|rectory |
|000004a0| 22 6d 69 6e 65 22 29 20 | 22 54 68 65 20 64 69 72 |"mine") |"The dir|
|000004b0| 65 63 74 6f 72 79 20 77 | 68 65 72 65 20 74 68 65 |ectory w|here the|
|000004c0| 20 6d 69 6e 65 20 67 6c | 79 70 68 73 20 72 65 73 | mine gl|yphs res|
|000004d0| 69 64 65 22 20 3a 67 72 | 6f 75 70 20 27 78 6d 69 |ide" :gr|oup 'xmi|
|000004e0| 6e 65 20 3a 74 79 70 65 | 20 27 64 69 72 65 63 74 |ne :type| 'direct|
|000004f0| 6f 72 79 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |ory).(by|te-code |
|00000500| 22 c0 c1 c2 c3 c4 c5 25 | 88 c0 c6 c7 c8 c4 c5 25 |"......%|.......%|
|00000510| 88 c0 c9 ca cb c4 c5 25 | 88 cc cd 21 ac 96 ce 0e |.......%|...!....|
|00000520| 0f d0 61 ab 8b d1 d2 21 | ab 86 0e 13 d4 50 aa 81 |..a....!|.....P..|
|00000530| d5 21 16 0d cd 0e 16 42 | 16 16 cc d7 21 ac 96 ce |.!.....B|....!...|
|00000540| 0e 0f d0 61 ab 8b d1 d2 | 21 ab 86 0e 13 d8 50 aa |...a....|!.....P.|
|00000550| 81 d9 21 16 17 d7 0e 16 | 42 16 16 cc da 21 ac 83 |..!.....|B....!..|
|00000560| db 16 1a da 0e 16 42 16 | 16 c0 87 22 20 5b 63 75 |......B.|..." [cu|
|00000570| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 66 61 63 |stom-dec|lare-fac|
|00000580| 65 20 78 6d 69 6e 65 2d | 68 69 64 64 65 6e 2d 66 |e xmine-|hidden-f|
|00000590| 61 63 65 20 28 28 74 20 | 28 3a 62 61 63 6b 67 72 |ace ((t |(:backgr|
|000005a0| 6f 75 6e 64 20 22 62 6c | 75 65 22 29 29 29 20 22 |ound "bl|ue"))) "|
|000005b0| 54 68 65 20 66 61 63 65 | 20 75 73 65 64 20 66 6f |The face| used fo|
|000005c0| 72 20 68 69 64 64 65 6e | 20 74 69 6c 65 73 20 6f |r hidden| tiles o|
|000005d0| 6e 20 74 74 79 73 22 20 | 3a 67 72 6f 75 70 20 78 |n ttys" |:group x|
|000005e0| 6d 69 6e 65 20 78 6d 69 | 6e 65 2d 66 6c 61 67 67 |mine xmi|ne-flagg|
|000005f0| 65 64 2d 66 61 63 65 20 | 28 28 74 20 28 3a 62 61 |ed-face |((t (:ba|
|00000600| 63 6b 67 72 6f 75 6e 64 | 20 22 72 65 64 22 29 29 |ckground| "red"))|
|00000610| 29 20 22 54 68 65 20 66 | 61 63 65 20 75 73 65 64 |) "The f|ace used|
|00000620| 20 66 6f 72 20 66 6c 61 | 67 67 65 64 20 74 69 6c | for fla|gged til|
|00000630| 65 73 20 6f 6e 20 74 74 | 79 73 22 20 78 6d 69 6e |es on tt|ys" xmin|
|00000640| 65 2d 6e 75 6d 62 65 72 | 2d 66 61 63 65 20 28 28 |e-number|-face ((|
|00000650| 74 20 28 3a 62 61 63 6b | 67 72 6f 75 6e 64 20 22 |t (:back|ground "|
|00000660| 67 72 65 65 6e 22 29 29 | 29 20 22 54 68 65 20 66 |green"))|) "The f|
|00000670| 61 63 65 20 75 73 65 64 | 20 66 6f 72 20 75 6e 68 |ace used| for unh|
|00000680| 69 64 64 65 6e 2c 20 6e | 75 6d 62 65 72 65 64 20 |idden, n|umbered |
|00000690| 74 69 6c 65 73 20 6f 6e | 20 74 74 79 73 22 20 62 |tiles on| ttys" b|
|000006a0| 6f 75 6e 64 70 20 78 6d | 69 6e 65 2d 70 61 64 2d |oundp xm|ine-pad-|
|000006b0| 67 6c 79 70 68 20 6d 61 | 6b 65 2d 67 6c 79 70 68 |glyph ma|ke-glyph|
|000006c0| 20 77 69 6e 64 6f 77 2d | 73 79 73 74 65 6d 20 78 | window-|system x|
|000006d0| 20 66 65 61 74 75 72 65 | 70 20 78 70 6d 20 78 6d | feature|p xpm xm|
|000006e0| 69 6e 65 2d 67 6c 79 70 | 68 2d 64 69 72 20 22 70 |ine-glyp|h-dir "p|
|000006f0| 61 64 2e 78 70 6d 22 20 | 22 20 20 20 20 20 20 22 |ad.xpm" |"      "|
|00000700| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000710| 73 74 20 78 6d 69 6e 65 | 2d 74 69 74 6c 65 2d 67 |st xmine|-title-g|
|00000720| 6c 79 70 68 20 22 73 70 | 6c 61 73 68 2e 78 70 6d |lyph "sp|lash.xpm|
|00000730| 22 20 22 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |" "-----|--------|
|00000740| 2d 2d 2d 2d 2d 20 58 45 | 6d 61 63 73 20 58 4d 69 |----- XE|macs XMi|
|00000750| 6e 65 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ne -----|--------|
|00000760| 2d 2d 2d 2d 2d 22 20 78 | 6d 69 6e 65 2d 67 6c 79 |-----" x|mine-gly|
|00000770| 70 68 2d 70 72 6f 64 75 | 63 74 69 6f 6e 2d 6c 69 |ph-produ|ction-li|
|00000780| 73 74 20 28 28 22 78 6d | 69 6e 65 2d 6e 65 77 2d |st (("xm|ine-new-|
|00000790| 75 70 22 20 22 6e 65 77 | 5f 75 70 2e 67 69 66 22 |up" "new|_up.gif"|
|000007a0| 20 22 6e 65 77 22 20 6e | 69 6c 29 20 28 22 78 6d | "new" n|il) ("xm|
|000007b0| 69 6e 65 2d 6e 65 77 2d | 64 6f 77 6e 22 20 22 6e |ine-new-|down" "n|
|000007c0| 65 77 5f 64 6f 77 6e 2e | 67 69 66 22 20 22 4e 45 |ew_down.|gif" "NE|
|000007d0| 57 22 20 6e 69 6c 29 20 | 28 22 78 6d 69 6e 65 2d |W" nil) |("xmine-|
|000007e0| 71 75 69 74 2d 75 70 22 | 20 22 71 75 69 74 5f 75 |quit-up"| "quit_u|
|000007f0| 70 2e 67 69 66 22 20 22 | 71 75 69 74 22 20 6e 69 |p.gif" "|quit" ni|
|00000800| 6c 29 20 28 22 78 6d 69 | 6e 65 2d 71 75 69 74 2d |l) ("xmi|ne-quit-|
|00000810| 64 6f 77 6e 22 20 22 71 | 75 69 74 5f 64 6f 77 6e |down" "q|uit_down|
|00000820| 2e 67 69 66 22 20 22 51 | 55 49 54 22 20 6e 69 6c |.gif" "Q|UIT" nil|
|00000830| 29 20 28 22 78 6d 69 6e | 65 2d 75 70 2d 67 6c 79 |) ("xmin|e-up-gly|
|00000840| 70 68 22 20 22 65 6d 70 | 74 79 5f 31 36 5f 75 70 |ph" "emp|ty_16_up|
|00000850| 2e 67 69 66 22 20 22 40 | 20 22 20 78 6d 69 6e 65 |.gif" "@| " xmine|
|00000860| 2d 68 69 64 64 65 6e 2d | 66 61 63 65 29 20 28 22 |-hidden-|face) ("|
|00000870| 78 6d 69 6e 65 2d 75 70 | 2d 73 65 6c 2d 67 6c 79 |xmine-up|-sel-gly|
|00000880| 70 68 22 20 22 65 6d 70 | 74 79 5f 31 36 5f 75 70 |ph" "emp|ty_16_up|
|00000890| 5f 73 65 6c 2e 67 69 66 | 22 20 22 40 3c 22 20 78 |_sel.gif|" "@<" x|
|000008a0| 6d 69 6e 65 2d 68 69 64 | 64 65 6e 2d 66 61 63 65 |mine-hid|den-face|
|000008b0| 29 20 28 22 78 6d 69 6e | 65 2d 64 6f 77 6e 2d 67 |) ("xmin|e-down-g|
|000008c0| 6c 79 70 68 22 20 22 65 | 6d 70 74 79 5f 31 36 5f |lyph" "e|mpty_16_|
|000008d0| 64 6f 77 6e 2e 67 69 66 | 22 20 22 3f 20 22 20 6e |down.gif|" "? " n|
|000008e0| 69 6c 29 20 28 22 78 6d | 69 6e 65 2d 66 6c 61 67 |il) ("xm|ine-flag|
|000008f0| 67 65 64 2d 67 6c 79 70 | 68 22 20 22 66 6c 61 67 |ged-glyp|h" "flag|
|00000900| 67 65 64 5f 31 36 5f 75 | 70 2e 67 69 66 22 20 22 |ged_16_u|p.gif" "|
|00000910| 21 20 22 20 78 6d 69 6e | 65 2d 66 6c 61 67 67 65 |! " xmin|e-flagge|
|00000920| 64 2d 66 61 63 65 29 20 | 28 22 78 6d 69 6e 65 2d |d-face) |("xmine-|
|00000930| 66 6c 61 67 67 65 64 2d | 73 65 6c 2d 67 6c 79 70 |flagged-|sel-glyp|
|00000940| 68 22 20 22 66 6c 61 67 | 67 65 64 5f 31 36 5f 75 |h" "flag|ged_16_u|
|00000950| 70 5f 73 65 6c 2e 67 69 | 66 22 20 22 21 3c 22 20 |p_sel.gi|f" "!<" |
|00000960| 78 6d 69 6e 65 2d 66 6c | 61 67 67 65 64 2d 66 61 |xmine-fl|agged-fa|
|00000970| 63 65 29 20 28 22 78 6d | 69 6e 65 2d 6d 69 6e 65 |ce) ("xm|ine-mine|
|00000980| 2d 67 6c 79 70 68 22 20 | 22 62 6f 6d 62 5f 31 36 |-glyph" |"bomb_16|
|00000990| 5f 66 6c 61 74 2e 67 69 | 66 22 20 22 2a 20 22 20 |_flat.gi|f" "* " |
|000009a0| 6e 69 6c 29 20 28 22 78 | 6d 69 6e 65 2d 6d 69 6e |nil) ("x|mine-min|
|000009b0| 65 2d 73 65 6c 2d 67 6c | 79 70 68 22 20 22 62 6f |e-sel-gl|yph" "bo|
|000009c0| 6d 62 5f 31 36 5f 66 6c | 61 74 2e 67 69 66 22 20 |mb_16_fl|at.gif" |
|000009d0| 22 2a 3c 22 20 6e 69 6c | 29 20 28 22 78 6d 69 6e |"*<" nil|) ("xmin|
|000009e0| 65 2d 74 72 61 70 70 65 | 64 2d 67 6c 79 70 68 22 |e-trappe|d-glyph"|
|000009f0| 20 22 62 6f 6d 62 5f 74 | 72 61 70 70 65 64 5f 31 | "bomb_t|rapped_1|
|00000a00| 36 5f 66 6c 61 74 2e 67 | 69 66 22 20 22 58 20 22 |6_flat.g|if" "X "|
|00000a10| 20 6e 69 6c 29 20 28 22 | 78 6d 69 6e 65 2d 30 2d | nil) ("|xmine-0-|
|00000a20| 67 6c 79 70 68 22 20 22 | 65 6d 70 74 79 5f 31 36 |glyph" "|empty_16|
|00000a30| 5f 66 6c 61 74 2e 67 69 | 66 22 20 22 2e 20 22 20 |_flat.gi|f" ". " |
|00000a40| 6e 69 6c 29 20 28 22 78 | 6d 69 6e 65 2d 30 2d 73 |nil) ("x|mine-0-s|
|00000a50| 65 6c 2d 67 6c 79 70 68 | 22 20 22 65 6d 70 74 79 |el-glyph|" "empty|
|00000a60| 5f 31 36 5f 66 6c 61 74 | 5f 73 65 6c 2e 67 69 66 |_16_flat|_sel.gif|
|00000a70| 22 20 22 2e 3c 22 20 6e | 69 6c 29 20 28 22 78 6d |" ".<" n|il) ("xm|
|00000a80| 69 6e 65 2d 31 2d 67 6c | 79 70 68 22 20 22 31 5f |ine-1-gl|yph" "1_|
|00000a90| 31 36 5f 66 6c 61 74 2e | 67 69 66 22 20 22 31 20 |16_flat.|gif" "1 |
|00000aa0| 22 20 78 6d 69 6e 65 2d | 6e 75 6d 62 65 72 2d 66 |" xmine-|number-f|
|00000ab0| 61 63 65 29 20 28 22 78 | 6d 69 6e 65 2d 31 2d 73 |ace) ("x|mine-1-s|
|00000ac0| 65 6c 2d 67 6c 79 70 68 | 22 20 22 31 5f 31 36 5f |el-glyph|" "1_16_|
|00000ad0| 66 6c 61 74 5f 73 65 6c | 2e 67 69 66 22 20 22 31 |flat_sel|.gif" "1|
|00000ae0| 3c 22 20 78 6d 69 6e 65 | 2d 6e 75 6d 62 65 72 2d |<" xmine|-number-|
|00000af0| 66 61 63 65 29 20 28 22 | 78 6d 69 6e 65 2d 32 2d |face) ("|xmine-2-|
|00000b00| 67 6c 79 70 68 22 20 22 | 32 5f 31 36 5f 66 6c 61 |glyph" "|2_16_fla|
|00000b10| 74 2e 67 69 66 22 20 22 | 32 20 22 20 78 6d 69 6e |t.gif" "|2 " xmin|
|00000b20| 65 2d 6e 75 6d 62 65 72 | 2d 66 61 63 65 29 20 28 |e-number|-face) (|
|00000b30| 22 78 6d 69 6e 65 2d 32 | 2d 73 65 6c 2d 67 6c 79 |"xmine-2|-sel-gly|
|00000b40| 70 68 22 20 22 32 5f 31 | 36 5f 66 6c 61 74 5f 73 |ph" "2_1|6_flat_s|
|00000b50| 65 6c 2e 67 69 66 22 20 | 22 32 3c 22 20 78 6d 69 |el.gif" |"2<" xmi|
|00000b60| 6e 65 2d 6e 75 6d 62 65 | 72 2d 66 61 63 65 29 20 |ne-numbe|r-face) |
|00000b70| 28 22 78 6d 69 6e 65 2d | 33 2d 67 6c 79 70 68 22 |("xmine-|3-glyph"|
|00000b80| 20 22 33 5f 31 36 5f 66 | 6c 61 74 2e 67 69 66 22 | "3_16_f|lat.gif"|
|00000b90| 20 22 33 20 22 20 78 6d | 69 6e 65 2d 6e 75 6d 62 | "3 " xm|ine-numb|
|00000ba0| 65 72 2d 66 61 63 65 29 | 20 28 22 78 6d 69 6e 65 |er-face)| ("xmine|
|00000bb0| 2d 33 2d 73 65 6c 2d 67 | 6c 79 70 68 22 20 22 33 |-3-sel-g|lyph" "3|
|00000bc0| 5f 31 36 5f 66 6c 61 74 | 5f 73 65 6c 2e 67 69 66 |_16_flat|_sel.gif|
|00000bd0| 22 20 22 33 3c 22 20 78 | 6d 69 6e 65 2d 6e 75 6d |" "3<" x|mine-num|
|00000be0| 62 65 72 2d 66 61 63 65 | 29 20 28 22 78 6d 69 6e |ber-face|) ("xmin|
|00000bf0| 65 2d 34 2d 67 6c 79 70 | 68 22 20 22 34 5f 31 36 |e-4-glyp|h" "4_16|
|00000c00| 5f 66 6c 61 74 2e 67 69 | 66 22 20 22 34 20 22 20 |_flat.gi|f" "4 " |
|00000c10| 78 6d 69 6e 65 2d 6e 75 | 6d 62 65 72 2d 66 61 63 |xmine-nu|mber-fac|
|00000c20| 65 29 20 28 22 78 6d 69 | 6e 65 2d 34 2d 73 65 6c |e) ("xmi|ne-4-sel|
|00000c30| 2d 67 6c 79 70 68 22 20 | 22 34 5f 31 36 5f 66 6c |-glyph" |"4_16_fl|
|00000c40| 61 74 5f 73 65 6c 2e 67 | 69 66 22 20 22 34 3c 22 |at_sel.g|if" "4<"|
|00000c50| 20 78 6d 69 6e 65 2d 6e | 75 6d 62 65 72 2d 66 61 | xmine-n|umber-fa|
|00000c60| 63 65 29 20 28 22 78 6d | 69 6e 65 2d 35 2d 67 6c |ce) ("xm|ine-5-gl|
|00000c70| 79 70 68 22 20 22 35 5f | 31 36 5f 66 6c 61 74 2e |yph" "5_|16_flat.|
|00000c80| 67 69 66 22 20 22 35 20 | 22 20 78 6d 69 6e 65 2d |gif" "5 |" xmine-|
|00000c90| 6e 75 6d 62 65 72 2d 66 | 61 63 65 29 20 28 22 78 |number-f|ace) ("x|
|00000ca0| 6d 69 6e 65 2d 35 2d 73 | 65 6c 2d 67 6c 79 70 68 |mine-5-s|el-glyph|
|00000cb0| 22 20 22 35 5f 31 36 5f | 66 6c 61 74 5f 73 65 6c |" "5_16_|flat_sel|
|00000cc0| 2e 67 69 66 22 20 22 35 | 3c 22 20 78 6d 69 6e 65 |.gif" "5|<" xmine|
|00000cd0| 2d 6e 75 6d 62 65 72 2d | 66 61 63 65 29 20 28 22 |-number-|face) ("|
|00000ce0| 78 6d 69 6e 65 2d 36 2d | 67 6c 79 70 68 22 20 22 |xmine-6-|glyph" "|
|00000cf0| 36 5f 31 36 5f 66 6c 61 | 74 2e 67 69 66 22 20 22 |6_16_fla|t.gif" "|
|00000d00| 36 20 22 20 78 6d 69 6e | 65 2d 6e 75 6d 62 65 72 |6 " xmin|e-number|
|00000d10| 2d 66 61 63 65 29 20 28 | 22 78 6d 69 6e 65 2d 36 |-face) (|"xmine-6|
|00000d20| 2d 73 65 6c 2d 67 6c 79 | 70 68 22 20 22 36 5f 31 |-sel-gly|ph" "6_1|
|00000d30| 36 5f 66 6c 61 74 5f 73 | 65 6c 2e 67 69 66 22 20 |6_flat_s|el.gif" |
|00000d40| 22 36 3c 22 20 78 6d 69 | 6e 65 2d 6e 75 6d 62 65 |"6<" xmi|ne-numbe|
|00000d50| 72 2d 66 61 63 65 29 20 | 28 22 78 6d 69 6e 65 2d |r-face) |("xmine-|
|00000d60| 37 2d 67 6c 79 70 68 22 | 20 22 37 5f 31 36 5f 66 |7-glyph"| "7_16_f|
|00000d70| 6c 61 74 2e 67 69 66 22 | 20 22 37 20 22 20 78 6d |lat.gif"| "7 " xm|
|00000d80| 69 6e 65 2d 6e 75 6d 62 | 65 72 2d 66 61 63 65 29 |ine-numb|er-face)|
|00000d90| 20 28 22 78 6d 69 6e 65 | 2d 37 2d 73 65 6c 2d 67 | ("xmine|-7-sel-g|
|00000da0| 6c 79 70 68 22 20 22 37 | 5f 31 36 5f 66 6c 61 74 |lyph" "7|_16_flat|
|00000db0| 5f 73 65 6c 2e 67 69 66 | 22 20 22 37 3c 22 20 78 |_sel.gif|" "7<" x|
|00000dc0| 6d 69 6e 65 2d 6e 75 6d | 62 65 72 2d 66 61 63 65 |mine-num|ber-face|
|00000dd0| 29 20 28 22 78 6d 69 6e | 65 2d 38 2d 67 6c 79 70 |) ("xmin|e-8-glyp|
|00000de0| 68 22 20 22 38 5f 31 36 | 5f 66 6c 61 74 2e 67 69 |h" "8_16|_flat.gi|
|00000df0| 66 22 20 22 38 20 22 20 | 78 6d 69 6e 65 2d 6e 75 |f" "8 " |xmine-nu|
|00000e00| 6d 62 65 72 2d 66 61 63 | 65 29 20 28 22 78 6d 69 |mber-fac|e) ("xmi|
|00000e10| 6e 65 2d 38 2d 73 65 6c | 2d 67 6c 79 70 68 22 20 |ne-8-sel|-glyph" |
|00000e20| 22 38 5f 31 36 5f 66 6c | 61 74 5f 73 65 6c 2e 67 |"8_16_fl|at_sel.g|
|00000e30| 69 66 22 20 22 38 3c 22 | 20 78 6d 69 6e 65 2d 6e |if" "8<"| xmine-n|
|00000e40| 75 6d 62 65 72 2d 66 61 | 63 65 29 29 5d 20 36 29 |umber-fa|ce))] 6)|
|00000e50| 0a 23 40 36 35 20 54 68 | 69 73 20 69 73 20 66 6f |.#@65 Th|is is fo|
|00000e60| 72 20 64 65 62 75 67 67 | 69 6e 67 20 70 75 72 70 |r debugg|ing purp|
|00000e70| 6f 73 65 73 20 6f 6e 6c | 79 2e 20 4e 6f 20 6e 65 |oses onl|y. No ne|
|00000e80| 65 64 20 74 6f 20 73 65 | 74 20 69 74 2e 20 52 65 |ed to se|t it. Re|
|00000e90| 61 6c 6c 79 2e 1f 0a 28 | 64 65 66 76 61 72 20 78 |ally...(|defvar x|
|00000ea0| 6d 69 6e 65 2d 66 6f 72 | 63 65 2d 74 65 78 74 75 |mine-for|ce-textu|
|00000eb0| 61 6c 20 6e 69 6c 20 28 | 23 24 20 2e 20 33 36 37 |al nil (|#$ . 367|
|00000ec0| 30 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 78 |0)).(def|alias 'x|
|00000ed0| 6d 69 6e 65 2d 67 65 6e | 65 72 61 74 65 2d 67 6c |mine-gen|erate-gl|
|00000ee0| 79 70 68 73 20 23 5b 6e | 69 6c 20 22 08 c1 89 89 |yphs #[n|il "....|
|00000ef0| 89 89 1a 1b 1c 1d 1e 06 | 1e 07 0e 07 89 41 16 07 |........|.....A..|
|00000f00| 40 89 16 06 ad bc 0e 06 | 40 15 0e 06 41 40 14 0e |@.......|@...A@..|
|00000f10| 06 41 41 40 13 0e 06 41 | 41 41 40 12 c8 0d 21 c9 |.AA@...A|AA@...!.|
|00000f20| 0e 5c 6e ac 8c 0e 0b cc | 61 ab 86 0e 0d 0c 50 aa |.\n.....|a.....P.|
|00000f30| 81 0b 21 4c 88 5c 6e ab | 43 ce cf d0 0d 21 21 5c |..!L.\n.|C....!!\|
|00000f40| 6e 5c 22 88 aa 38 2e 06 | 87 22 20 5b 78 6d 69 6e |n\"..8..|." [xmin|
|00000f50| 65 2d 67 6c 79 70 68 2d | 70 72 6f 64 75 63 74 69 |e-glyph-|producti|
|00000f60| 6f 6e 2d 6c 69 73 74 20 | 6e 69 6c 20 66 61 63 65 |on-list |nil face|
|00000f70| 20 74 65 78 74 20 67 69 | 66 20 76 61 72 20 65 6c | text gi|f var el|
|00000f80| 65 6d 20 6c 69 73 74 20 | 69 6e 74 65 72 6e 20 6d |em list |intern m|
|00000f90| 61 6b 65 2d 67 6c 79 70 | 68 20 78 6d 69 6e 65 2d |ake-glyp|h xmine-|
|00000fa0| 66 6f 72 63 65 2d 74 65 | 78 74 75 61 6c 20 77 69 |force-te|xtual wi|
|00000fb0| 6e 64 6f 77 2d 73 79 73 | 74 65 6d 20 78 20 78 6d |ndow-sys|tem x xm|
|00000fc0| 69 6e 65 2d 67 6c 79 70 | 68 2d 64 69 72 20 73 65 |ine-glyp|h-dir se|
|00000fd0| 74 2d 67 6c 79 70 68 2d | 66 61 63 65 20 65 76 61 |t-glyph-|face eva|
|00000fe0| 6c 20 69 6e 74 65 72 6e | 2d 73 6f 66 74 5d 20 36 |l intern|-soft] 6|
|00000ff0| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00001000| 20 88 c1 c2 21 ac 82 c3 | 12 c2 0c 42 14 c3 87 22 | ...!...|...B..."|
|00001010| 20 5b 78 6d 69 6e 65 2d | 67 65 6e 65 72 61 74 65 | [xmine-|generate|
|00001020| 2d 67 6c 79 70 68 73 20 | 62 6f 75 6e 64 70 20 78 |-glyphs |boundp x|
|00001030| 6d 69 6e 65 2d 6b 65 79 | 2d 73 65 6c 2d 62 75 74 |mine-key|-sel-but|
|00001040| 74 6f 6e 20 6e 69 6c 20 | 63 75 72 72 65 6e 74 2d |ton nil |current-|
|00001050| 6c 6f 61 64 2d 6c 69 73 | 74 5d 20 32 29 0a 28 64 |load-lis|t] 2).(d|
|00001060| 65 66 61 6c 69 61 73 20 | 27 78 6d 69 6e 65 2d 75 |efalias |'xmine-u|
|00001070| 70 2d 67 6c 79 70 68 20 | 23 5b 28 65 78 74 29 20 |p-glyph |#[(ext) |
|00001080| 22 08 09 6b ab 88 c2 08 | c3 0c 23 88 0d 87 0c 87 |"..k....|..#.....|
|00001090| 22 20 5b 65 78 74 20 78 | 6d 69 6e 65 2d 6b 65 79 |" [ext x|mine-key|
|000010a0| 2d 73 65 6c 2d 62 75 74 | 74 6f 6e 20 73 65 74 2d |-sel-but|ton set-|
|000010b0| 65 78 74 65 6e 74 2d 70 | 72 6f 70 65 72 74 79 20 |extent-p|roperty |
|000010c0| 78 6d 69 6e 65 2d 6e 6f | 6e 2d 73 65 6c 65 63 74 |xmine-no|n-select|
|000010d0| 65 64 2d 67 6c 79 70 68 | 20 78 6d 69 6e 65 2d 75 |ed-glyph| xmine-u|
|000010e0| 70 2d 67 6c 79 70 68 20 | 78 6d 69 6e 65 2d 75 70 |p-glyph |xmine-up|
|000010f0| 2d 73 65 6c 2d 67 6c 79 | 70 68 5d 20 34 5d 29 0a |-sel-gly|ph] 4]).|
|00001100| 28 64 65 66 61 6c 69 61 | 73 20 27 78 6d 69 6e 65 |(defalia|s 'xmine|
|00001110| 2d 66 6c 61 67 67 65 64 | 2d 67 6c 79 70 68 20 23 |-flagged|-glyph #|
|00001120| 5b 28 65 78 74 29 20 22 | 08 09 6b ab 88 c2 08 c3 |[(ext) "|..k.....|
|00001130| 0c 23 88 0d 87 0c 87 22 | 20 5b 65 78 74 20 78 6d |.#....."| [ext xm|
|00001140| 69 6e 65 2d 6b 65 79 2d | 73 65 6c 2d 62 75 74 74 |ine-key-|sel-butt|
|00001150| 6f 6e 20 73 65 74 2d 65 | 78 74 65 6e 74 2d 70 72 |on set-e|xtent-pr|
|00001160| 6f 70 65 72 74 79 20 78 | 6d 69 6e 65 2d 6e 6f 6e |operty x|mine-non|
|00001170| 2d 73 65 6c 65 63 74 65 | 64 2d 67 6c 79 70 68 20 |-selecte|d-glyph |
|00001180| 78 6d 69 6e 65 2d 66 6c | 61 67 67 65 64 2d 67 6c |xmine-fl|agged-gl|
|00001190| 79 70 68 20 78 6d 69 6e | 65 2d 66 6c 61 67 67 65 |yph xmin|e-flagge|
|000011a0| 64 2d 73 65 6c 2d 67 6c | 79 70 68 5d 20 34 5d 29 |d-sel-gl|yph] 4])|
|000011b0| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|000011c0| 2d 76 61 72 69 61 62 6c | 65 20 27 78 6d 69 6e 65 |-variabl|e 'xmine|
|000011d0| 2d 25 2d 6f 66 2d 6d 69 | 6e 65 73 20 27 31 32 20 |-%-of-mi|nes '12 |
|000011e0| 22 54 68 65 20 70 65 72 | 63 65 6e 74 61 67 65 20 |"The per|centage |
|000011f0| 6f 66 20 74 69 6c 65 73 | 20 74 68 61 74 20 73 68 |of tiles| that sh|
|00001200| 6f 75 6c 64 20 62 65 20 | 6d 69 6e 65 73 2e 22 20 |ould be |mines." |
|00001210| 3a 67 72 6f 75 70 20 27 | 78 6d 69 6e 65 20 3a 74 |:group '|xmine :t|
|00001220| 79 70 65 20 27 69 6e 74 | 65 67 65 72 29 0a 28 63 |ype 'int|eger).(c|
|00001230| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00001240| 72 69 61 62 6c 65 20 27 | 78 6d 69 6e 65 2d 62 61 |riable '|xmine-ba|
|00001250| 6c 6c 6f 6f 6e 2d 6c 69 | 73 74 20 27 28 6c 69 73 |lloon-li|st '(lis|
|00001260| 74 20 22 57 68 61 74 20 | 61 72 65 20 79 6f 75 20 |t "What |are you |
|00001270| 77 61 69 74 69 6e 67 20 | 66 6f 72 3f 22 20 22 50 |waiting |for?" "P|
|00001280| 75 73 68 20 6d 65 21 22 | 20 22 43 6f 6d 65 20 6f |ush me!"| "Come o|
|00001290| 6e 2e 20 44 6f 6e 27 74 | 20 73 6c 65 65 70 2e 22 |n. Don't| sleep."|
|000012a0| 20 22 41 72 65 20 79 6f | 75 20 73 75 72 65 3f 22 | "Are yo|u sure?"|
|000012b0| 20 22 41 72 65 20 79 6f | 75 20 73 6c 65 65 70 69 | "Are yo|u sleepi|
|000012c0| 6e 67 3f 22 20 22 59 65 | 73 21 20 44 6f 20 69 74 |ng?" "Ye|s! Do it|
|000012d0| 21 22 20 22 49 27 6d 20 | 67 65 74 74 69 6e 67 20 |!" "I'm |getting |
|000012e0| 62 6f 72 65 64 2e 22 20 | 22 59 6f 75 20 77 69 6c |bored." |"You wil|
|000012f0| 6c 20 4e 45 56 45 52 20 | 62 65 61 74 20 6d 65 2e |l NEVER |beat me.|
|00001300| 22 29 20 22 28 52 61 6e | 64 6f 6d 29 20 74 65 78 |") "(Ran|dom) tex|
|00001310| 74 73 20 66 6f 72 20 74 | 68 65 20 62 61 6c 6c 6f |ts for t|he ballo|
|00001320| 6f 6e 2d 68 65 6c 70 20 | 70 72 6f 70 65 72 74 79 |on-help |property|
|00001330| 20 6f 66 20 74 68 65 20 | 74 69 6c 65 73 22 20 3a | of the |tiles" :|
|00001340| 67 72 6f 75 70 20 27 78 | 6d 69 6e 65 20 3a 74 79 |group 'x|mine :ty|
|00001350| 70 65 20 27 28 72 65 70 | 65 61 74 20 28 73 74 72 |pe '(rep|eat (str|
|00001360| 69 6e 67 29 29 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |ing))).(|custom-d|
|00001370| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00001380| 27 78 6d 69 6e 65 2d 62 | 61 63 6b 67 72 6f 75 6e |'xmine-b|ackgroun|
|00001390| 64 20 27 22 77 68 69 74 | 65 22 20 22 54 68 65 20 |d '"whit|e" "The |
|000013a0| 62 61 63 6b 67 72 6f 75 | 6e 64 20 63 6f 6c 6f 72 |backgrou|nd color|
|000013b0| 20 6f 66 20 58 4d 69 6e | 65 27 73 20 62 75 66 66 | of XMin|e's buff|
|000013c0| 65 72 2e 5c 6e 4d 61 6e | 79 20 63 6f 6c 6f 72 73 |er.\nMan|y colors|
|000013d0| 20 77 69 6c 6c 20 6e 6f | 74 20 62 6c 65 6e 64 20 | will no|t blend |
|000013e0| 6e 69 63 65 6c 79 20 77 | 69 74 68 20 74 68 65 20 |nicely w|ith the |
|000013f0| 6c 6f 67 6f 2e 20 53 68 | 61 64 65 73 20 6f 66 20 |logo. Sh|ades of |
|00001400| 6c 69 67 68 74 20 67 72 | 65 79 20 61 72 65 5c 6e |light gr|ey are\n|
|00001410| 70 72 65 66 65 72 72 65 | 64 20 69 66 20 79 6f 75 |preferre|d if you|
|00001420| 20 64 6f 6e 27 74 20 77 | 61 6e 74 20 74 6f 20 75 | don't w|ant to u|
|00001430| 73 65 20 77 68 69 74 65 | 2e 22 20 3a 67 72 6f 75 |se white|." :grou|
|00001440| 70 20 27 78 6d 69 6e 65 | 20 3a 74 79 70 65 20 27 |p 'xmine| :type '|
|00001450| 63 6f 6c 6f 72 29 0a 28 | 62 79 74 65 2d 63 6f 64 |color).(|byte-cod|
|00001460| 65 20 22 c0 c1 21 ac 82 | c2 11 c1 0b 42 13 09 ac |e "..!..|....B...|
|00001470| f9 c4 20 11 c5 09 21 88 | c6 09 c7 c8 23 88 c6 09 |.. ...!.|....#...|
|00001480| c9 ca 23 88 c6 09 cb cc | 23 88 c6 09 cd ce 23 88 |..#.....|#.....#.|
|00001490| c6 09 cf c8 23 88 c6 09 | d0 ca 23 88 c6 09 d1 cc |....#...|..#.....|
|000014a0| 23 88 c6 09 d2 ce 23 88 | c6 09 d3 d4 23 88 c6 09 |#.....#.|....#...|
|000014b0| d5 d6 23 88 c6 09 d7 d8 | 23 88 c6 09 d9 da 23 88 |..#.....|#.....#.|
|000014c0| c6 09 db dc 23 88 c6 09 | dd dc 23 88 c6 09 de df |....#...|..#.....|
|000014d0| 23 88 c6 09 e0 df 23 88 | c6 09 e1 e2 23 88 c6 09 |#.....#.|....#...|
|000014e0| e3 e4 23 88 c6 09 e5 e6 | 23 88 c0 e7 21 ac 83 e8 |..#.....|#...!...|
|000014f0| 16 27 e7 0b 42 13 c0 e9 | 21 ac 83 e8 16 29 e9 0b |.'..B...|!....)..|
|00001500| 42 13 c0 ea 21 ac 83 e8 | 16 2a ea 0b 42 13 c0 eb |B...!...|.*..B...|
|00001510| 21 ac 83 c2 16 2b eb 0b | 42 13 c0 ec 21 ac 83 c2 |!....+..|B...!...|
|00001520| 16 2c ec 0b 42 13 c0 ed | 21 ac 83 c2 16 2d ed 0b |.,..B...|!....-..|
|00001530| 42 13 c0 ee 21 ac 83 c2 | 16 2e ee 0b 42 13 c0 ef |B...!...|....B...|
|00001540| 21 ac 83 c2 16 2f ef 0b | 42 13 c0 f0 21 ac 85 f1 |!..../..|B...!...|
|00001550| f2 21 16 30 f0 0b 42 13 | c2 87 22 20 5b 62 6f 75 |.!.0..B.|.." [bou|
|00001560| 6e 64 70 20 78 6d 69 6e | 65 2d 6b 65 79 6d 61 70 |ndp xmin|e-keymap|
|00001570| 20 6e 69 6c 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 | nil cur|rent-loa|
|00001580| 64 2d 6c 69 73 74 20 6d | 61 6b 65 2d 73 70 61 72 |d-list m|ake-spar|
|00001590| 73 65 2d 6b 65 79 6d 61 | 70 20 73 75 70 70 72 65 |se-keyma|p suppre|
|000015a0| 73 73 2d 6b 65 79 6d 61 | 70 20 64 65 66 69 6e 65 |ss-keyma|p define|
|000015b0| 2d 6b 65 79 20 5b 75 70 | 5d 20 78 6d 69 6e 65 2d |-key [up|] xmine-|
|000015c0| 6b 65 79 2d 75 70 20 5b | 64 6f 77 6e 5d 20 78 6d |key-up [|down] xm|
|000015d0| 69 6e 65 2d 6b 65 79 2d | 64 6f 77 6e 20 5b 72 69 |ine-key-|down [ri|
|000015e0| 67 68 74 5d 20 78 6d 69 | 6e 65 2d 6b 65 79 2d 72 |ght] xmi|ne-key-r|
|000015f0| 69 67 68 74 20 5b 6c 65 | 66 74 5d 20 78 6d 69 6e |ight [le|ft] xmin|
|00001600| 65 2d 6b 65 79 2d 6c 65 | 66 74 20 22 65 22 20 22 |e-key-le|ft "e" "|
|00001610| 63 22 20 22 66 22 20 22 | 73 22 20 22 77 22 20 78 |c" "f" "|s" "w" x|
|00001620| 6d 69 6e 65 2d 6b 65 79 | 2d 75 70 2d 6c 65 66 74 |mine-key|-up-left|
|00001630| 20 22 78 22 20 78 6d 69 | 6e 65 2d 6b 65 79 2d 64 | "x" xmi|ne-key-d|
|00001640| 6f 77 6e 2d 6c 65 66 74 | 20 22 72 22 20 78 6d 69 |own-left| "r" xmi|
|00001650| 6e 65 2d 6b 65 79 2d 75 | 70 2d 72 69 67 68 74 20 |ne-key-u|p-right |
|00001660| 22 76 22 20 78 6d 69 6e | 65 2d 6b 65 79 2d 64 6f |"v" xmin|e-key-do|
|00001670| 77 6e 2d 72 69 67 68 74 | 20 5b 72 65 74 75 72 6e |wn-right| [return|
|00001680| 5d 20 78 6d 69 6e 65 2d | 6b 65 79 2d 61 63 74 69 |] xmine-|key-acti|
|00001690| 6f 6e 33 20 22 64 22 20 | 5b 28 73 68 69 66 74 20 |on3 "d" |[(shift |
|000016a0| 73 70 61 63 65 29 5d 20 | 78 6d 69 6e 65 2d 6b 65 |space)] |xmine-ke|
|000016b0| 79 2d 61 63 74 69 6f 6e | 32 20 22 61 22 20 5b 73 |y-action|2 "a" [s|
|000016c0| 70 61 63 65 5d 20 78 6d | 69 6e 65 2d 6b 65 79 2d |pace] xm|ine-key-|
|000016d0| 61 63 74 69 6f 6e 31 20 | 5b 51 5d 20 78 6d 69 6e |action1 |[Q] xmin|
|000016e0| 65 2d 6b 65 79 2d 71 75 | 69 74 20 5b 4e 5d 20 78 |e-key-qu|it [N] x|
|000016f0| 6d 69 6e 65 2d 6b 65 79 | 2d 6e 65 77 20 78 6d 69 |mine-key|-new xmi|
|00001700| 6e 65 2d 6e 75 6d 62 65 | 72 2d 6f 66 2d 66 6c 61 |ne-numbe|r-of-fla|
|00001710| 67 67 65 64 20 30 20 78 | 6d 69 6e 65 2d 6e 75 6d |gged 0 x|mine-num|
|00001720| 62 65 72 2d 6f 66 2d 6f | 70 65 6e 65 64 20 78 6d |ber-of-o|pened xm|
|00001730| 69 6e 65 2d 6e 75 6d 62 | 65 72 2d 6f 66 2d 6d 69 |ine-numb|er-of-mi|
|00001740| 6e 65 73 20 78 6d 69 6e | 65 2d 66 69 65 6c 64 20 |nes xmin|e-field |
|00001750| 78 6d 69 6e 65 2d 62 75 | 66 66 65 72 20 78 6d 69 |xmine-bu|ffer xmi|
|00001760| 6e 65 2d 71 75 69 74 2d | 61 6e 6e 20 78 6d 69 6e |ne-quit-|ann xmin|
|00001770| 65 2d 6e 65 77 2d 61 6e | 6e 20 78 6d 69 6e 65 2d |e-new-an|n xmine-|
|00001780| 63 6f 75 6e 74 2d 61 6e | 6e 20 78 6d 69 6e 65 2d |count-an|n xmine-|
|00001790| 63 6f 75 6e 74 2d 67 6c | 79 70 68 20 6d 61 6b 65 |count-gl|yph make|
|000017a0| 2d 67 6c 79 70 68 20 22 | 4d 69 6e 65 73 3a 20 30 |-glyph "|Mines: 0|
|000017b0| 30 22 5d 20 34 29 0a 23 | 40 33 36 20 2a 48 6f 6f |0"] 4).#|@36 *Hoo|
|000017c0| 6b 20 63 61 6c 6c 65 64 | 20 62 79 20 60 78 6d 69 |k called| by `xmi|
|000017d0| 6e 65 2d 6d 6f 64 65 2d | 68 6f 6f 6b 27 2e 1f 0a |ne-mode-|hook'...|
|000017e0| 28 64 65 66 76 61 72 20 | 78 6d 69 6e 65 2d 6d 6f |(defvar |xmine-mo|
|000017f0| 64 65 2d 68 6f 6f 6b 20 | 6e 69 6c 20 28 23 24 20 |de-hook |nil (#$ |
|00001800| 2e 20 2d 36 30 37 36 29 | 29 0a 28 64 65 66 61 6c |. -6076)|).(defal|
|00001810| 69 61 73 20 27 78 6d 69 | 6e 65 2d 61 63 74 69 76 |ias 'xmi|ne-activ|
|00001820| 61 74 65 2d 66 75 6e 63 | 74 69 6f 6e 2d 62 75 74 |ate-func|tion-but|
|00001830| 74 6f 6e 20 23 5b 28 65 | 76 65 6e 74 29 20 22 c0 |ton #[(e|vent) ".|
|00001840| 09 21 1a c3 c4 09 21 21 | 1d c6 c7 0d 50 21 1e 08 |.!....!!|....P!..|
|00001850| c6 c9 0d 50 21 1e 5c 6e | c6 cb 0d 50 21 1e 0c cd |...P!.\n|...P!...|
|00001860| 1e 0e cd 1e 0f d0 1e 11 | d2 5c 6e 21 ab 8c d3 5c |........|.\n!...\|
|00001870| 6e 21 16 11 d4 5c 6e d2 | 5c 6e 21 5c 22 88 d5 5c |n!...\n.|\n!\"..\|
|00001880| 6e 0e 5c 6e 5c 22 ab 89 | d5 5c 6e 0e 5c 6e 5c 22 |n.\n\"..|.\n.\n\"|
|00001890| 5c 6e 21 16 0f 0e 0e ab | 8f d6 09 21 11 d7 09 21 |\n!.....|...!...!|
|000018a0| ab 73 d0 89 16 0e ac 71 | d2 5c 6e 21 ab 86 d4 5c |.s.....q|.\n!...\|
|000018b0| 6e 0e 11 5c 22 88 5c 6e | c0 09 21 61 ab a4 d5 5c |n..\".\n|..!a...\|
|000018c0| 6e 0e 08 5c 22 ab 8d 0e | 0f ab 89 d5 5c 6e 0e 08 |n..\"...|....\n..|
|000018d0| 5c 22 5c 6e 21 aa 9e d5 | 5c 6e 0e 0c 5c 22 ad 97 |\"\n!...|\n..\"..|
|000018e0| d5 5c 6e 0e 0c 5c 22 5c | 6e 21 aa 8e d5 5c 6e 0e |.\n..\"\|n!...\n.|
|000018f0| 0c 5c 22 ad 87 d5 5c 6e | 0e 0c 5c 22 5c 6e 21 2e |.\"...\n|..\"\n!.|
|00001900| 08 87 22 20 5b 65 76 65 | 6e 74 2d 67 6c 79 70 68 |.." [eve|nt-glyph|
|00001910| 2d 65 78 74 65 6e 74 20 | 65 76 65 6e 74 20 65 78 |-extent |event ex|
|00001920| 74 65 6e 74 20 6e 75 6d | 62 65 72 2d 74 6f 2d 73 |tent num|ber-to-s|
|00001930| 74 72 69 6e 67 20 65 76 | 65 6e 74 2d 62 75 74 74 |tring ev|ent-butt|
|00001940| 6f 6e 20 62 75 74 74 6f | 6e 20 69 6e 74 65 72 6e |on butto|n intern|
|00001950| 20 22 61 63 74 69 6f 6e | 22 20 61 63 74 69 6f 6e | "action|" action|
|00001960| 20 22 64 6f 77 6e 2d 61 | 63 74 69 6f 6e 22 20 64 | "down-a|ction" d|
|00001970| 6f 77 6e 2d 61 63 74 69 | 6f 6e 20 22 72 65 73 74 |own-acti|on "rest|
|00001980| 6f 72 65 2d 64 6f 77 6e | 2d 61 63 74 69 6f 6e 22 |ore-down|-action"|
|00001990| 20 72 65 73 74 6f 72 65 | 2d 64 6f 77 6e 2d 61 63 | restore|-down-ac|
|000019a0| 74 69 6f 6e 20 74 20 6d | 6f 75 73 65 2d 64 6f 77 |tion t m|ouse-dow|
|000019b0| 6e 20 61 63 74 69 6f 6e | 2d 64 6f 2d 69 74 20 6e |n action|-do-it n|
|000019c0| 69 6c 20 75 70 2d 67 6c | 79 70 68 20 61 6e 6e 6f |il up-gl|yph anno|
|000019d0| 74 61 74 69 6f 6e 2d 64 | 6f 77 6e 2d 67 6c 79 70 |tation-d|own-glyp|
|000019e0| 68 20 61 6e 6e 6f 74 61 | 74 69 6f 6e 2d 67 6c 79 |h annota|tion-gly|
|000019f0| 70 68 20 73 65 74 2d 61 | 6e 6e 6f 74 61 74 69 6f |ph set-a|nnotatio|
|00001a00| 6e 2d 67 6c 79 70 68 20 | 65 78 74 65 6e 74 2d 70 |n-glyph |extent-p|
|00001a10| 72 6f 70 65 72 74 79 20 | 6e 65 78 74 2d 65 76 65 |roperty |next-eve|
|00001a20| 6e 74 20 62 75 74 74 6f | 6e 2d 72 65 6c 65 61 73 |nt butto|n-releas|
|00001a30| 65 2d 65 76 65 6e 74 2d | 70 5d 20 35 20 6e 69 6c |e-event-|p] 5 nil|
|00001a40| 20 22 65 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "e"]).(|defalias|
|00001a50| 20 27 78 6d 69 6e 65 2d | 62 75 74 74 6f 6e 2d 63 | 'xmine-|button-c|
|00001a60| 72 65 61 74 65 20 23 5b | 28 78 20 79 20 74 79 70 |reate #[|(x y typ|
|00001a70| 65 29 20 22 c0 09 c2 c3 | c2 89 0c c2 26 07 1d c6 |e) "....|....&...|
|00001a80| 0d c7 c8 23 88 c6 0d c9 | ca 23 88 c6 0d cb cc 23 |...#....|.#.....#|
|00001a90| 88 c6 0d cd ce 23 88 c6 | 0d cf d0 23 88 c6 0d d1 |.....#..|...#....|
|00001aa0| d2 0e 13 21 23 88 c6 0d | d4 d5 0e 13 21 23 88 c6 |...!#...|....!#..|
|00001ab0| 0d d6 0e 13 23 88 c6 0d | d7 0e 18 23 88 c6 0d d9 |....#...|...#....|
|00001ac0| 0e 1a 23 88 c6 0d db c2 | 23 88 c6 0d dc dd 23 88 |..#.....|#.....#.|
|00001ad0| c6 0d de dd 23 88 c6 0d | df e0 20 23 88 0e 21 0e |....#...|.. #..!.|
|00001ae0| 1a 53 0e 5c 22 5f 0e 18 | 53 5c 5c 0d 49 29 87 22 |.S.\"_..|S\\.I)."|
|00001af0| 20 5b 6d 61 6b 65 2d 61 | 6e 6e 6f 74 61 74 69 6f | [make-a|nnotatio|
|00001b00| 6e 20 78 6d 69 6e 65 2d | 75 70 2d 67 6c 79 70 68 |n xmine-|up-glyph|
|00001b10| 20 6e 69 6c 20 74 65 78 | 74 20 78 6d 69 6e 65 2d | nil tex|t xmine-|
|00001b20| 64 6f 77 6e 2d 67 6c 79 | 70 68 20 65 78 74 20 73 |down-gly|ph ext s|
|00001b30| 65 74 2d 65 78 74 65 6e | 74 2d 70 72 6f 70 65 72 |et-exten|t-proper|
|00001b40| 74 79 20 61 63 74 69 6f | 6e 31 20 78 6d 69 6e 65 |ty actio|n1 xmine|
|00001b50| 2d 61 63 74 69 6f 6e 31 | 20 61 63 74 69 6f 6e 32 |-action1| action2|
|00001b60| 20 78 6d 69 6e 65 2d 62 | 65 65 70 20 61 63 74 69 | xmine-b|eep acti|
|00001b70| 6f 6e 33 20 78 6d 69 6e | 65 2d 61 63 74 69 6f 6e |on3 xmin|e-action|
|00001b80| 33 20 64 6f 77 6e 2d 61 | 63 74 69 6f 6e 32 20 78 |3 down-a|ction2 x|
|00001b90| 6d 69 6e 65 2d 64 6f 77 | 6e 2d 61 63 74 69 6f 6e |mine-dow|n-action|
|00001ba0| 32 20 72 65 73 74 6f 72 | 65 2d 64 6f 77 6e 2d 61 |2 restor|e-down-a|
|00001bb0| 63 74 69 6f 6e 32 20 78 | 6d 69 6e 65 2d 72 65 73 |ction2 x|mine-res|
|00001bc0| 74 6f 72 65 2d 64 6f 77 | 6e 2d 61 63 74 69 6f 6e |tore-dow|n-action|
|00001bd0| 32 20 78 6d 69 6e 65 2d | 67 6c 79 70 68 20 78 6d |2 xmine-|glyph xm|
|00001be0| 69 6e 65 2d 74 79 70 65 | 2d 74 6f 2d 67 6c 79 70 |ine-type|-to-glyp|
|00001bf0| 68 20 74 79 70 65 20 78 | 6d 69 6e 65 2d 73 65 6c |h type x|mine-sel|
|00001c00| 2d 67 6c 79 70 68 20 78 | 6d 69 6e 65 2d 74 79 70 |-glyph x|mine-typ|
|00001c10| 65 2d 74 6f 2d 73 65 6c | 2d 67 6c 79 70 68 20 78 |e-to-sel|-glyph x|
|00001c20| 6d 69 6e 65 2d 74 79 70 | 65 20 78 6d 69 6e 65 2d |mine-typ|e xmine-|
|00001c30| 78 20 78 20 78 6d 69 6e | 65 2d 79 20 79 20 78 6d |x x xmin|e-y y xm|
|00001c40| 69 6e 65 2d 66 6c 61 67 | 67 65 64 20 78 6d 69 6e |ine-flag|ged xmin|
|00001c50| 65 2d 68 69 64 64 65 6e | 20 74 20 65 6e 64 2d 6f |e-hidden| t end-o|
|00001c60| 70 65 6e 20 62 61 6c 6c | 6f 6f 6e 2d 68 65 6c 70 |pen ball|oon-help|
|00001c70| 20 78 6d 69 6e 65 2d 62 | 61 6c 6c 6f 6f 6e 2d 74 | xmine-b|alloon-t|
|00001c80| 65 78 74 20 78 6d 69 6e | 65 2d 66 69 65 6c 64 20 |ext xmin|e-field |
|00001c90| 78 6d 69 6e 65 2d 77 69 | 64 74 68 5d 20 38 5d 29 |xmine-wi|dth] 8])|
|00001ca0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 78 6d 69 6e |.(defali|as 'xmin|
|00001cb0| 65 2d 62 75 74 74 6f 6e | 2d 63 68 61 6e 67 65 2d |e-button|-change-|
|00001cc0| 74 79 70 65 20 23 5b 28 | 65 78 74 20 74 79 70 65 |type #[(|ext type|
|00001cd0| 29 20 22 c0 09 c2 c3 0c | 21 23 88 c0 09 c5 c6 0c |) ".....|!#......|
|00001ce0| 21 23 88 c0 09 c7 0c 23 | 87 22 20 5b 73 65 74 2d |!#.....#|." [set-|
|00001cf0| 65 78 74 65 6e 74 2d 70 | 72 6f 70 65 72 74 79 20 |extent-p|roperty |
|00001d00| 65 78 74 20 78 6d 69 6e | 65 2d 67 6c 79 70 68 20 |ext xmin|e-glyph |
|00001d10| 78 6d 69 6e 65 2d 74 79 | 70 65 2d 74 6f 2d 67 6c |xmine-ty|pe-to-gl|
|00001d20| 79 70 68 20 74 79 70 65 | 20 78 6d 69 6e 65 2d 73 |yph type| xmine-s|
|00001d30| 65 6c 2d 67 6c 79 70 68 | 20 78 6d 69 6e 65 2d 74 |el-glyph| xmine-t|
|00001d40| 79 70 65 2d 74 6f 2d 73 | 65 6c 2d 67 6c 79 70 68 |ype-to-s|el-glyph|
|00001d50| 20 78 6d 69 6e 65 2d 74 | 79 70 65 5d 20 35 5d 29 | xmine-t|ype] 5])|
|00001d60| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 78 6d 69 6e |.(defali|as 'xmin|
|00001d70| 65 2d 66 6c 61 74 2d 62 | 75 74 74 6f 6e 2d 70 20 |e-flat-b|utton-p |
|00001d80| 23 5b 28 65 78 74 29 20 | 22 08 ad 8d c1 08 c2 5c |#[(ext) |"......\|
|00001d90| 22 3f ad 86 c1 08 c3 5c | 22 c4 6b 87 22 20 5b 65 |"?.....\|".k." [e|
|00001da0| 78 74 20 65 78 74 65 6e | 74 2d 70 72 6f 70 65 72 |xt exten|t-proper|
|00001db0| 74 79 20 78 6d 69 6e 65 | 2d 68 69 64 64 65 6e 20 |ty xmine|-hidden |
|00001dc0| 78 6d 69 6e 65 2d 74 79 | 70 65 20 22 30 22 5d 20 |xmine-ty|pe "0"] |
|00001dd0| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 78 |3]).(def|alias 'x|
|00001de0| 6d 69 6e 65 2d 65 6e 6f | 75 67 68 2d 66 6c 61 67 |mine-eno|ugh-flag|
|00001df0| 67 65 64 2d 70 20 23 5b | 28 65 78 74 29 20 22 c0 |ged-p #[|(ext) ".|
|00001e00| 09 21 c2 09 c3 5c 22 c4 | c5 89 1e 06 1e 07 1e 08 |.!...\".|........|
|00001e10| 1e 09 1e 5c 6e 0e 09 cb | 6b ac ad 0e 09 cc 6b ac |...\n...|k.....k.|
|00001e20| a7 cd 0e 09 21 16 09 0e | 5c 6e 89 41 16 5c 6e 40 |....!...|\n.A.\n@|
|00001e30| 89 16 07 ab 8e c2 0e 07 | ce 5c 22 ab 6d 0e 08 54 |........|.\".m..T|
|00001e40| 16 08 aa 66 0e 08 0e 09 | 59 16 06 0e 06 2d 87 22 |...f....|Y....-."|
|00001e50| 20 5b 78 6d 69 6e 65 2d | 67 65 74 2d 6e 65 69 67 | [xmine-|get-neig|
|00001e60| 68 62 6f 75 72 73 20 65 | 78 74 20 65 78 74 65 6e |hbours e|xt exten|
|00001e70| 74 2d 70 72 6f 70 65 72 | 74 79 20 78 6d 69 6e 65 |t-proper|ty xmine|
|00001e80| 2d 74 79 70 65 20 30 20 | 6e 69 6c 20 72 65 73 20 |-type 0 |nil res |
|00001e90| 65 6c 65 6d 20 66 6c 61 | 67 67 65 64 20 6e 75 6d |elem fla|gged num|
|00001ea0| 62 65 72 20 6c 69 73 74 | 20 22 6d 69 6e 65 22 20 |ber list| "mine" |
|00001eb0| 22 30 22 20 73 74 72 69 | 6e 67 2d 74 6f 2d 6e 75 |"0" stri|ng-to-nu|
|00001ec0| 6d 62 65 72 20 78 6d 69 | 6e 65 2d 66 6c 61 67 67 |mber xmi|ne-flagg|
|00001ed0| 65 64 5d 20 35 5d 29 0a | 28 64 65 66 61 6c 69 61 |ed] 5]).|(defalia|
|00001ee0| 73 20 27 78 6d 69 6e 65 | 2d 6d 69 6e 65 2d 62 75 |s 'xmine|-mine-bu|
|00001ef0| 74 74 6f 6e 2d 70 20 23 | 5b 28 65 78 74 29 20 22 |tton-p #|[(ext) "|
|00001f00| 08 ad 86 c1 08 c2 5c 22 | c3 6b 87 22 20 5b 65 78 |......\"|.k." [ex|
|00001f10| 74 20 65 78 74 65 6e 74 | 2d 70 72 6f 70 65 72 74 |t extent|-propert|
|00001f20| 79 20 78 6d 69 6e 65 2d | 74 79 70 65 20 22 6d 69 |y xmine-|type "mi|
|00001f30| 6e 65 22 5d 20 33 5d 29 | 0a 28 64 65 66 61 6c 69 |ne"] 3])|.(defali|
|00001f40| 61 73 20 27 78 6d 69 6e | 65 2d 62 61 6c 6c 6f 6f |as 'xmin|e-balloo|
|00001f50| 6e 2d 74 65 78 74 20 23 | 5b 6e 69 6c 20 22 c0 09 |n-text #|[nil "..|
|00001f60| 47 21 09 38 87 22 20 5b | 72 61 6e 64 6f 6d 20 78 |G!.8." [|random x|
|00001f70| 6d 69 6e 65 2d 62 61 6c | 6c 6f 6f 6e 2d 6c 69 73 |mine-bal|loon-lis|
|00001f80| 74 5d 20 32 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |t] 2]).(|defalias|
|00001f90| 20 27 78 6d 69 6e 65 2d | 62 65 65 70 20 23 5b 28 | 'xmine-|beep #[(|
|00001fa0| 26 72 65 73 74 20 66 6f | 72 67 65 74 29 20 22 c0 |&rest fo|rget) ".|
|00001fb0| 20 87 22 20 5b 62 65 65 | 70 5d 20 31 5d 29 0a 28 | ." [bee|p] 1]).(|
|00001fc0| 64 65 66 61 6c 69 61 73 | 20 27 78 6d 69 6e 65 2d |defalias| 'xmine-|
|00001fd0| 74 79 70 65 2d 74 6f 2d | 67 6c 79 70 68 20 23 5b |type-to-|glyph #[|
|00001fe0| 28 74 79 70 65 29 20 22 | c0 c1 c2 0b c4 51 21 21 |(type) "|.....Q!!|
|00001ff0| 87 22 20 5b 65 76 61 6c | 20 69 6e 74 65 72 6e 2d |." [eval| intern-|
|00002000| 73 6f 66 74 20 22 78 6d | 69 6e 65 2d 22 20 74 79 |soft "xm|ine-" ty|
|00002010| 70 65 20 22 2d 67 6c 79 | 70 68 22 5d 20 35 5d 29 |pe "-gly|ph"] 5])|
|00002020| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 78 6d 69 6e |.(defali|as 'xmin|
|00002030| 65 2d 74 79 70 65 2d 74 | 6f 2d 73 65 6c 2d 67 6c |e-type-t|o-sel-gl|
|00002040| 79 70 68 20 23 5b 28 74 | 79 70 65 29 20 22 c0 c1 |yph #[(t|ype) "..|
|00002050| c2 0b c4 51 21 21 87 22 | 20 5b 65 76 61 6c 20 69 |...Q!!."| [eval i|
|00002060| 6e 74 65 72 6e 2d 73 6f | 66 74 20 22 78 6d 69 6e |ntern-so|ft "xmin|
|00002070| 65 2d 22 20 74 79 70 65 | 20 22 2d 73 65 6c 2d 67 |e-" type| "-sel-g|
|00002080| 6c 79 70 68 22 5d 20 35 | 5d 29 0a 23 40 33 30 20 |lyph"] 5|]).#@30 |
|00002090| 54 68 69 73 20 75 6e 68 | 69 64 65 73 20 61 20 68 |This unh|ides a h|
|000020a0| 69 64 64 65 6e 20 62 75 | 74 74 6f 6e 1f 0a 28 64 |idden bu|tton..(d|
|000020b0| 65 66 61 6c 69 61 73 20 | 27 78 6d 69 6e 65 2d 61 |efalias |'xmine-a|
|000020c0| 63 74 69 6f 6e 31 20 23 | 5b 28 65 78 74 20 26 6f |ction1 #|[(ext &o|
|000020d0| 70 74 69 6f 6e 61 6c 20 | 6e 6f 2d 72 65 70 61 69 |ptional |no-repai|
|000020e0| 6e 74 20 66 6f 72 63 65 | 29 20 22 08 ac 87 c1 5c |nt force|) "....\|
|000020f0| 6e c3 5c 22 3f ad df 08 | ac 89 c1 5c 6e c4 5c 22 |n.\"?...|...\n.\"|
|00002100| ab 83 0d 54 15 c6 5c 6e | c4 c7 23 88 c8 5c 6e 89 |...T..\n|..#..\n.|
|00002110| 0e 09 6b ab 8f c6 5c 6e | ca c1 5c 6e cb 5c 22 23 |..k...\n|..\n.\"#|
|00002120| 88 c1 5c 6e cc 5c 22 aa | 84 c1 5c 6e cb 5c 22 5c |..\n.\".|..\n.\"\|
|00002130| 22 88 c6 5c 6e cd c7 23 | 88 c6 5c 6e ce c7 23 88 |"..\n..#|..\n..#.|
|00002140| c6 5c 6e cf c7 23 88 c6 | 5c 6e d0 d1 23 88 0e 12 |.\n..#..|\n..#...|
|00002150| 3f ad 93 d3 20 88 d4 5c | 6e 21 88 d5 20 ad 88 d6 |?... ..\|n!.. ...|
|00002160| 5c 6e 21 3f ad 82 d7 20 | 87 22 20 5b 66 6f 72 63 |\n!?... |." [forc|
|00002170| 65 20 65 78 74 65 6e 74 | 2d 70 72 6f 70 65 72 74 |e extent|-propert|
|00002180| 79 20 65 78 74 20 78 6d | 69 6e 65 2d 66 6c 61 67 |y ext xm|ine-flag|
|00002190| 67 65 64 20 78 6d 69 6e | 65 2d 68 69 64 64 65 6e |ged xmin|e-hidden|
|000021a0| 20 78 6d 69 6e 65 2d 6e | 75 6d 62 65 72 2d 6f 66 | xmine-n|umber-of|
|000021b0| 2d 6f 70 65 6e 65 64 20 | 73 65 74 2d 65 78 74 65 |-opened |set-exte|
|000021c0| 6e 74 2d 70 72 6f 70 65 | 72 74 79 20 6e 69 6c 20 |nt-prope|rty nil |
|000021d0| 73 65 74 2d 61 6e 6e 6f | 74 61 74 69 6f 6e 2d 67 |set-anno|tation-g|
|000021e0| 6c 79 70 68 20 78 6d 69 | 6e 65 2d 6b 65 79 2d 73 |lyph xmi|ne-key-s|
|000021f0| 65 6c 2d 62 75 74 74 6f | 6e 20 78 6d 69 6e 65 2d |el-butto|n xmine-|
|00002200| 6e 6f 6e 2d 73 65 6c 65 | 63 74 65 64 2d 67 6c 79 |non-sele|cted-gly|
|00002210| 70 68 20 78 6d 69 6e 65 | 2d 67 6c 79 70 68 20 78 |ph xmine|-glyph x|
|00002220| 6d 69 6e 65 2d 73 65 6c | 2d 67 6c 79 70 68 20 61 |mine-sel|-glyph a|
|00002230| 63 74 69 6f 6e 33 20 61 | 63 74 69 6f 6e 31 20 62 |ction3 a|ction1 b|
|00002240| 61 6c 6c 6f 6f 6e 2d 68 | 65 6c 70 20 61 63 74 69 |alloon-h|elp acti|
|00002250| 6f 6e 32 20 78 6d 69 6e | 65 2d 61 63 74 69 6f 6e |on2 xmin|e-action|
|00002260| 32 20 6e 6f 2d 72 65 70 | 61 69 6e 74 20 78 6d 69 |2 no-rep|aint xmi|
|00002270| 6e 65 2d 75 6e 68 69 64 | 65 2d 73 6f 75 6e 64 20 |ne-unhid|e-sound |
|00002280| 78 6d 69 6e 65 2d 66 69 | 65 6c 64 2d 72 65 70 61 |xmine-fi|eld-repa|
|00002290| 69 6e 74 20 78 6d 69 6e | 65 2d 67 61 6d 65 2d 73 |int xmin|e-game-s|
|000022a0| 6f 6c 76 65 64 2d 70 20 | 78 6d 69 6e 65 2d 6d 69 |olved-p |xmine-mi|
|000022b0| 6e 65 2d 62 75 74 74 6f | 6e 2d 70 20 78 6d 69 6e |ne-butto|n-p xmin|
|000022c0| 65 2d 65 6e 64 2d 67 61 | 6d 65 5d 20 38 20 28 23 |e-end-ga|me] 8 (#|
|000022d0| 24 20 2e 20 38 33 33 36 | 29 5d 29 0a 23 40 32 30 |$ . 8336|)]).#@20|
|000022e0| 32 20 54 68 69 73 20 75 | 6e 68 69 64 65 73 20 61 |2 This u|nhides a|
|000022f0| 6c 6c 20 68 69 64 64 65 | 6e 20 6e 65 69 67 68 62 |ll hidde|n neighb|
|00002300| 6f 75 72 73 20 6f 66 20 | 61 20 62 75 74 74 6f 6e |ours of |a button|
|00002310| 2e 0a 49 74 20 69 73 20 | 6d 65 61 6e 74 20 61 73 |..It is |meant as|
|00002320| 20 63 6f 6e 76 65 6e 69 | 65 6e 63 65 20 66 75 6e | conveni|ence fun|
|00002330| 63 74 69 6f 6e 20 79 6f | 75 20 63 61 6e 20 75 73 |ction yo|u can us|
|00002340| 65 20 69 66 20 79 6f 75 | 27 72 65 20 73 75 72 65 |e if you|'re sure|
|00002350| 20 74 68 61 74 0a 79 6f | 75 27 76 65 20 6d 61 72 | that.yo|u've mar|
|00002360| 6b 65 64 20 61 6c 6c 20 | 6d 69 6e 65 73 20 61 72 |ked all |mines ar|
|00002370| 6f 75 6e 64 20 74 68 65 | 20 62 75 74 74 6f 6e 20 |ound the| button |
|00002380| 63 6f 72 72 65 63 74 6c | 79 20 28 6f 72 20 79 6f |correctl|y (or yo|
|00002390| 75 27 72 65 20 73 75 72 | 65 0a 74 68 65 72 65 20 |u're sur|e.there |
|000023a0| 69 73 6e 27 74 20 6f 6e | 65 29 1f 0a 28 64 65 66 |isn't on|e)..(def|
|000023b0| 61 6c 69 61 73 20 27 78 | 6d 69 6e 65 2d 61 63 74 |alias 'x|mine-act|
|000023c0| 69 6f 6e 32 20 23 5b 28 | 65 78 74 29 20 22 c0 09 |ion2 #[(|ext) "..|
|000023d0| 21 c2 c3 1c 1d 89 1e 06 | ab 83 c7 20 88 0e 06 89 |!.......|... ....|
|000023e0| 41 16 06 40 89 14 ad 8b | c8 0c 21 ac 70 c9 0c 21 |A..@....|..!.p..!|
|000023f0| 88 aa 6a 2b 87 22 20 5b | 78 6d 69 6e 65 2d 67 65 |..j+." [|xmine-ge|
|00002400| 74 2d 6e 65 69 67 68 62 | 6f 75 72 73 20 65 78 74 |t-neighb|ours ext|
|00002410| 20 74 20 6e 69 6c 20 6e | 65 78 74 20 78 6d 69 6e | t nil n|ext xmin|
|00002420| 65 2d 6e 6f 2d 75 6e 68 | 69 64 65 2d 73 6f 75 6e |e-no-unh|ide-soun|
|00002430| 64 20 6c 69 73 74 20 78 | 6d 69 6e 65 2d 75 6e 68 |d list x|mine-unh|
|00002440| 69 64 65 2d 6d 61 6e 79 | 2d 73 6f 75 6e 64 20 78 |ide-many|-sound x|
|00002450| 6d 69 6e 65 2d 66 6c 61 | 74 2d 62 75 74 74 6f 6e |mine-fla|t-button|
|00002460| 2d 70 20 78 6d 69 6e 65 | 2d 61 63 74 69 6f 6e 31 |-p xmine|-action1|
|00002470| 5d 20 34 20 28 23 24 20 | 2e 20 38 39 33 30 29 5d |] 4 (#$ |. 8930)]|
|00002480| 29 0a 23 40 31 31 38 20 | 54 68 69 73 20 74 6f 67 |).#@118 |This tog|
|00002490| 67 6c 65 73 20 74 68 65 | 20 66 6c 61 67 67 65 64 |gles the| flagged|
|000024a0| 20 73 74 61 74 75 73 20 | 6f 66 20 61 20 62 75 74 | status |of a but|
|000024b0| 74 6f 6e 2e 0a 59 6f 75 | 20 66 6c 61 67 20 61 20 |ton..You| flag a |
|000024c0| 62 75 74 74 6f 6e 20 69 | 66 20 79 6f 75 20 6b 6e |button i|f you kn|
|000024d0| 6f 77 20 2d 20 6f 72 20 | 74 68 69 6e 6b 20 2d 20 |ow - or |think - |
|000024e0| 74 68 61 74 20 74 68 65 | 72 65 27 73 20 61 20 6d |that the|re's a m|
|000024f0| 69 6e 65 20 75 6e 64 65 | 72 20 69 74 1f 0a 28 64 |ine unde|r it..(d|
|00002500| 65 66 61 6c 69 61 73 20 | 27 78 6d 69 6e 65 2d 61 |efalias |'xmine-a|
|00002510| 63 74 69 6f 6e 33 20 23 | 5b 28 65 78 74 29 20 22 |ction3 #|[(ext) "|
|00002520| c0 09 c2 5c 22 ab aa c3 | 09 c4 09 21 5c 22 88 c5 |...\"...|...!\"..|
|00002530| 09 c6 c7 23 88 c5 09 c2 | c8 23 88 0e 09 53 16 09 |...#....|.#...S..|
|00002540| ca 20 88 c3 0e 0b cc cd | ce 0e 0f 0e 09 5a 5c 22 |. ......|.....Z\"|
|00002550| 21 5c 22 87 0e 09 0e 0f | 55 ab 87 d0 20 88 d1 d2 |!\".....|U... ...|
|00002560| 21 87 c3 09 d3 09 21 5c | 22 88 c5 09 c6 c8 23 88 |!.....!\|".....#.|
|00002570| c5 09 c2 d4 23 88 0e 09 | 54 16 09 ca 20 88 d5 20 |....#...|T... .. |
|00002580| ab 83 d6 20 87 c3 0e 0b | cc cd ce 0e 0f 0e 09 5a |... ....|.......Z|
|00002590| 5c 22 21 5c 22 87 22 20 | 5b 65 78 74 65 6e 74 2d |\"!\"." |[extent-|
|000025a0| 70 72 6f 70 65 72 74 79 | 20 65 78 74 20 78 6d 69 |property| ext xmi|
|000025b0| 6e 65 2d 66 6c 61 67 67 | 65 64 20 73 65 74 2d 61 |ne-flagg|ed set-a|
|000025c0| 6e 6e 6f 74 61 74 69 6f | 6e 2d 67 6c 79 70 68 20 |nnotatio|n-glyph |
|000025d0| 78 6d 69 6e 65 2d 75 70 | 2d 67 6c 79 70 68 20 73 |xmine-up|-glyph s|
|000025e0| 65 74 2d 65 78 74 65 6e | 74 2d 70 72 6f 70 65 72 |et-exten|t-proper|
|000025f0| 74 79 20 61 63 74 69 6f | 6e 31 20 78 6d 69 6e 65 |ty actio|n1 xmine|
|00002600| 2d 61 63 74 69 6f 6e 31 | 20 6e 69 6c 20 78 6d 69 |-action1| nil xmi|
|00002610| 6e 65 2d 6e 75 6d 62 65 | 72 2d 6f 66 2d 66 6c 61 |ne-numbe|r-of-fla|
|00002620| 67 67 65 64 20 78 6d 69 | 6e 65 2d 66 6c 61 67 2d |gged xmi|ne-flag-|
|00002630| 73 6f 75 6e 64 20 78 6d | 69 6e 65 2d 63 6f 75 6e |sound xm|ine-coun|
|00002640| 74 2d 61 6e 6e 20 6d 61 | 6b 65 2d 67 6c 79 70 68 |t-ann ma|ke-glyph|
|00002650| 20 66 6f 72 6d 61 74 20 | 22 4d 69 6e 65 73 3a 20 | format |"Mines: |
|00002660| 25 32 64 22 20 78 6d 69 | 6e 65 2d 6e 75 6d 62 65 |%2d" xmi|ne-numbe|
|00002670| 72 2d 6f 66 2d 6d 69 6e | 65 73 20 62 65 65 70 20 |r-of-min|es beep |
|00002680| 6d 65 73 73 61 67 65 20 | 22 49 6d 70 6f 73 73 69 |message |"Impossi|
|00002690| 62 6c 65 2e 20 59 6f 75 | 20 73 65 65 6d 20 74 6f |ble. You| seem to|
|000026a0| 20 68 61 76 65 20 6d 61 | 72 6b 65 64 20 74 6f 6f | have ma|rked too|
|000026b0| 20 6d 61 6e 79 20 74 69 | 6c 65 73 20 61 73 20 6d | many ti|les as m|
|000026c0| 69 6e 65 73 3f 22 20 78 | 6d 69 6e 65 2d 66 6c 61 |ines?" x|mine-fla|
|000026d0| 67 67 65 64 2d 67 6c 79 | 70 68 20 74 20 78 6d 69 |gged-gly|ph t xmi|
|000026e0| 6e 65 2d 67 61 6d 65 2d | 73 6f 6c 76 65 64 2d 70 |ne-game-|solved-p|
|000026f0| 20 78 6d 69 6e 65 2d 65 | 6e 64 2d 67 61 6d 65 5d | xmine-e|nd-game]|
|00002700| 20 37 20 28 23 24 20 2e | 20 39 33 35 32 29 5d 29 | 7 (#$ .| 9352)])|
|00002710| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 78 6d 69 6e |.(defali|as 'xmin|
|00002720| 65 2d 64 6f 77 6e 2d 61 | 63 74 69 6f 6e 32 20 23 |e-down-a|ction2 #|
|00002730| 5b 28 65 78 74 29 20 22 | c0 09 21 c2 09 21 c3 1c |[(ext) "|..!..!..|
|00002740| 1d 1e 06 0d ac 9c 0e 06 | 89 41 16 06 40 89 14 ab |........|.A..@...|
|00002750| 91 c7 0c c8 c9 0c 21 23 | 88 ca 0c cb 0c 21 5c 22 |......!#|.....!\"|
|00002760| 88 aa 64 0d 2b 87 22 20 | 5b 78 6d 69 6e 65 2d 67 |..d.+." |[xmine-g|
|00002770| 65 74 2d 6e 65 69 67 68 | 62 6f 75 72 73 20 65 78 |et-neigh|bours ex|
|00002780| 74 20 78 6d 69 6e 65 2d | 65 6e 6f 75 67 68 2d 66 |t xmine-|enough-f|
|00002790| 6c 61 67 67 65 64 2d 70 | 20 6e 69 6c 20 65 6c 65 |lagged-p| nil ele|
|000027a0| 6d 20 64 6f 2d 69 74 20 | 6c 69 73 74 20 73 65 74 |m do-it |list set|
|000027b0| 2d 65 78 74 65 6e 74 2d | 70 72 6f 70 65 72 74 79 |-extent-|property|
|000027c0| 20 78 6d 69 6e 65 2d 74 | 65 6d 70 2d 67 6c 79 70 | xmine-t|emp-glyp|
|000027d0| 68 20 61 6e 6e 6f 74 61 | 74 69 6f 6e 2d 67 6c 79 |h annota|tion-gly|
|000027e0| 70 68 20 73 65 74 2d 61 | 6e 6e 6f 74 61 74 69 6f |ph set-a|nnotatio|
|000027f0| 6e 2d 67 6c 79 70 68 20 | 61 6e 6e 6f 74 61 74 69 |n-glyph |annotati|
|00002800| 6f 6e 2d 64 6f 77 6e 2d | 67 6c 79 70 68 5d 20 35 |on-down-|glyph] 5|
|00002810| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 78 6d |]).(defa|lias 'xm|
|00002820| 69 6e 65 2d 72 65 73 74 | 6f 72 65 2d 64 6f 77 6e |ine-rest|ore-down|
|00002830| 2d 61 63 74 69 6f 6e 32 | 20 23 5b 28 65 78 74 29 |-action2| #[(ext)|
|00002840| 20 22 c0 09 21 c2 1b 1c | 0c 89 41 14 40 89 13 ad | "..!...|..A.@...|
|00002850| 8a c5 0b c6 0b c7 5c 22 | 5c 22 88 aa 6d 2a 87 22 |......\"|\"..m*."|
|00002860| 20 5b 78 6d 69 6e 65 2d | 67 65 74 2d 6e 65 69 67 | [xmine-|get-neig|
|00002870| 68 62 6f 75 72 73 20 65 | 78 74 20 6e 69 6c 20 65 |hbours e|xt nil e|
|00002880| 6c 65 6d 20 6c 69 73 74 | 20 73 65 74 2d 61 6e 6e |lem list| set-ann|
|00002890| 6f 74 61 74 69 6f 6e 2d | 67 6c 79 70 68 20 65 78 |otation-|glyph ex|
|000028a0| 74 65 6e 74 2d 70 72 6f | 70 65 72 74 79 20 78 6d |tent-pro|perty xm|
|000028b0| 69 6e 65 2d 74 65 6d 70 | 2d 67 6c 79 70 68 5d 20 |ine-temp|-glyph] |
|000028c0| 35 5d 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |5]).(cus|tom-decl|
|000028d0| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 78 6d |are-vari|able 'xm|
|000028e0| 69 6e 65 2d 70 6c 61 79 | 2d 73 6f 75 6e 64 73 20 |ine-play|-sounds |
|000028f0| 27 6e 69 6c 20 22 49 66 | 20 58 4d 69 6e 65 20 73 |'nil "If| XMine s|
|00002900| 68 6f 75 6c 64 20 70 6c | 61 79 20 73 6f 6d 65 20 |hould pl|ay some |
|00002910| 73 6f 75 6e 64 73 20 66 | 6f 72 20 76 61 72 69 6f |sounds f|or vario|
|00002920| 75 73 20 65 76 65 6e 74 | 73 20 74 6f 20 68 61 70 |us event|s to hap|
|00002930| 70 65 6e 2e 22 20 3a 67 | 72 6f 75 70 20 27 78 6d |pen." :g|roup 'xm|
|00002940| 69 6e 65 20 3a 74 79 70 | 65 20 27 62 6f 6f 6c 65 |ine :typ|e 'boole|
|00002950| 61 6e 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 78 |an).(def|alias 'x|
|00002960| 6d 69 6e 65 2d 70 6c 61 | 79 2d 73 6f 75 6e 64 73 |mine-pla|y-sounds|
|00002970| 2d 70 20 23 5b 6e 69 6c | 20 22 08 ad 9b c1 c2 21 |-p #[nil| ".....!|
|00002980| ac 85 c1 c3 21 ad 91 c4 | 20 ae 8d c1 c2 21 ad 88 |....!...| ....!..|
|00002990| 0d 3f ad 84 c6 20 c7 61 | 87 22 20 5b 78 6d 69 6e |.?... .a|." [xmin|
|000029a0| 65 2d 70 6c 61 79 2d 73 | 6f 75 6e 64 73 20 66 65 |e-play-s|ounds fe|
|000029b0| 61 74 75 72 65 70 20 6e | 61 74 69 76 65 2d 73 6f |aturep n|ative-so|
|000029c0| 75 6e 64 20 6e 61 73 2d | 73 6f 75 6e 64 20 64 65 |und nas-|sound de|
|000029d0| 76 69 63 65 2d 73 6f 75 | 6e 64 2d 65 6e 61 62 6c |vice-sou|nd-enabl|
|000029e0| 65 64 2d 70 20 6e 61 74 | 69 76 65 2d 73 6f 75 6e |ed-p nat|ive-soun|
|000029f0| 64 2d 6f 6e 6c 79 2d 6f | 6e 2d 63 6f 6e 73 6f 6c |d-only-o|n-consol|
|00002a00| 65 20 64 65 76 69 63 65 | 2d 74 79 70 65 20 78 5d |e device|-type x]|
|00002a10| 20 32 5d 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 | 2]).(cu|stom-dec|
|00002a20| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 78 |lare-var|iable 'x|
|00002a30| 6d 69 6e 65 2d 66 6c 61 | 67 2d 73 6f 75 6e 64 20 |mine-fla|g-sound |
|00002a40| 27 28 63 6f 6e 63 61 74 | 20 28 6c 6f 63 61 74 65 |'(concat| (locate|
|00002a50| 2d 64 61 74 61 2d 64 69 | 72 65 63 74 6f 72 79 20 |-data-di|rectory |
|00002a60| 22 73 6f 75 6e 64 73 22 | 29 20 22 63 6c 69 63 6b |"sounds"|) "click|
|00002a70| 2e 61 75 22 29 20 22 54 | 68 65 20 73 6f 75 6e 64 |.au") "T|he sound|
|00002a80| 20 70 6c 61 79 65 64 20 | 77 68 65 6e 20 66 6c 61 | played |when fla|
|00002a90| 67 67 69 6e 67 2f 75 6e | 2d 66 6c 61 67 67 69 6e |gging/un|-flaggin|
|00002aa0| 67 20 61 20 74 69 6c 65 | 22 20 3a 67 72 6f 75 70 |g a tile|" :group|
|00002ab0| 20 27 78 6d 69 6e 65 20 | 3a 74 79 70 65 20 27 66 | 'xmine |:type 'f|
|00002ac0| 69 6c 65 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |ile).(cu|stom-dec|
|00002ad0| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 78 |lare-var|iable 'x|
|00002ae0| 6d 69 6e 65 2d 75 6e 68 | 69 64 65 2d 73 6f 75 6e |mine-unh|ide-soun|
|00002af0| 64 20 27 28 63 6f 6e 63 | 61 74 20 28 6c 6f 63 61 |d '(conc|at (loca|
|00002b00| 74 65 2d 64 61 74 61 2d | 64 69 72 65 63 74 6f 72 |te-data-|director|
|00002b10| 79 20 22 73 6f 75 6e 64 | 73 22 29 20 22 64 72 69 |y "sound|s") "dri|
|00002b20| 70 2e 61 75 22 29 20 22 | 54 68 65 20 73 6f 75 6e |p.au") "|The soun|
|00002b30| 64 20 70 6c 61 79 65 64 | 20 77 68 65 6e 20 75 6e |d played| when un|
|00002b40| 68 69 64 69 6e 67 20 61 | 20 74 69 6c 65 22 20 3a |hiding a| tile" :|
|00002b50| 67 72 6f 75 70 20 27 78 | 6d 69 6e 65 20 3a 74 79 |group 'x|mine :ty|
|00002b60| 70 65 20 27 66 69 6c 65 | 29 0a 28 63 75 73 74 6f |pe 'file|).(custo|
|00002b70| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00002b80| 6c 65 20 27 78 6d 69 6e | 65 2d 75 6e 68 69 64 65 |le 'xmin|e-unhide|
|00002b90| 2d 6d 61 6e 79 2d 73 6f | 75 6e 64 20 27 28 63 6f |-many-so|und '(co|
|00002ba0| 6e 63 61 74 20 28 6c 6f | 63 61 74 65 2d 64 61 74 |ncat (lo|cate-dat|
|00002bb0| 61 2d 64 69 72 65 63 74 | 6f 72 79 20 22 73 6f 75 |a-direct|ory "sou|
|00002bc0| 6e 64 73 22 29 20 22 62 | 6f 69 6e 67 2e 61 75 22 |nds") "b|oing.au"|
|00002bd0| 29 20 22 54 68 65 20 73 | 6f 75 6e 64 20 70 6c 61 |) "The s|ound pla|
|00002be0| 79 65 64 20 77 68 65 6e | 20 75 6e 68 69 64 69 6e |yed when| unhidin|
|00002bf0| 67 20 61 6c 6c 20 6e 65 | 69 67 68 62 6f 75 72 73 |g all ne|ighbours|
|00002c00| 20 6f 66 20 61 20 74 69 | 6c 65 22 20 3a 67 72 6f | of a ti|le" :gro|
|00002c10| 75 70 20 27 78 6d 69 6e | 65 20 3a 74 79 70 65 20 |up 'xmin|e :type |
|00002c20| 27 66 69 6c 65 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |'file).(|custom-d|
|00002c30| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00002c40| 27 78 6d 69 6e 65 2d 65 | 78 70 6c 6f 64 65 2d 73 |'xmine-e|xplode-s|
|00002c50| 6f 75 6e 64 20 27 28 63 | 6f 6e 63 61 74 20 78 6d |ound '(c|oncat xm|
|00002c60| 69 6e 65 2d 67 6c 79 70 | 68 2d 64 69 72 20 22 65 |ine-glyp|h-dir "e|
|00002c70| 78 70 6c 6f 73 69 6f 6e | 33 2e 61 75 22 29 20 22 |xplosion|3.au") "|
|00002c80| 54 68 65 20 73 6f 75 6e | 64 20 70 6c 61 79 65 64 |The soun|d played|
|00002c90| 20 77 68 65 6e 20 79 6f | 75 20 75 6e 68 69 64 65 | when yo|u unhide|
|00002ca0| 20 61 20 6d 69 6e 65 22 | 20 3a 67 72 6f 75 70 20 | a mine"| :group |
|00002cb0| 27 78 6d 69 6e 65 20 3a | 74 79 70 65 20 27 66 69 |'xmine :|type 'fi|
|00002cc0| 6c 65 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |le).(cus|tom-decl|
|00002cd0| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 78 6d |are-vari|able 'xm|
|00002ce0| 69 6e 65 2d 73 6f 6c 76 | 65 64 2d 73 6f 75 6e 64 |ine-solv|ed-sound|
|00002cf0| 20 27 28 63 6f 6e 63 61 | 74 20 28 6c 6f 63 61 74 | '(conca|t (locat|
|00002d00| 65 2d 64 61 74 61 2d 64 | 69 72 65 63 74 6f 72 79 |e-data-d|irectory|
|00002d10| 20 22 73 6f 75 6e 64 73 | 22 29 20 22 69 6d 5f 73 | "sounds|") "im_s|
|00002d20| 6f 5f 68 61 70 70 79 2e | 61 75 22 29 20 22 54 68 |o_happy.|au") "Th|
|00002d30| 65 20 73 6f 75 6e 64 20 | 70 6c 61 79 65 64 20 69 |e sound |played i|
|00002d40| 66 20 79 6f 75 20 6d 61 | 6e 61 67 65 64 20 74 6f |f you ma|naged to|
|00002d50| 20 77 69 6e 20 74 68 65 | 20 67 61 6d 65 2e 22 20 | win the| game." |
|00002d60| 3a 67 72 6f 75 70 20 27 | 78 6d 69 6e 65 20 3a 74 |:group '|xmine :t|
|00002d70| 79 70 65 20 27 66 69 6c | 65 29 0a 28 64 65 66 61 |ype 'fil|e).(defa|
|00002d80| 6c 69 61 73 20 27 78 6d | 69 6e 65 2d 66 6c 61 67 |lias 'xm|ine-flag|
|00002d90| 2d 73 6f 75 6e 64 20 23 | 5b 6e 69 6c 20 22 c0 20 |-sound #|[nil ". |
|00002da0| ad 83 c1 5c 6e 21 87 22 | 20 5b 78 6d 69 6e 65 2d |...\n!."| [xmine-|
|00002db0| 70 6c 61 79 2d 73 6f 75 | 6e 64 73 2d 70 20 70 6c |play-sou|nds-p pl|
|00002dc0| 61 79 2d 73 6f 75 6e 64 | 2d 66 69 6c 65 20 78 6d |ay-sound|-file xm|
|00002dd0| 69 6e 65 2d 66 6c 61 67 | 2d 73 6f 75 6e 64 5d 20 |ine-flag|-sound] |
|00002de0| 32 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |2]).(byt|e-code "|
|00002df0| c0 c1 21 ac 82 c2 11 c1 | 0b 42 13 c2 87 22 20 5b |..!.....|.B..." [|
|00002e00| 62 6f 75 6e 64 70 20 78 | 6d 69 6e 65 2d 6e 6f 2d |boundp x|mine-no-|
|00002e10| 75 6e 68 69 64 65 2d 73 | 6f 75 6e 64 20 6e 69 6c |unhide-s|ound nil|
|00002e20| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00002e30| 73 74 5d 20 32 29 0a 28 | 64 65 66 61 6c 69 61 73 |st] 2).(|defalias|
|00002e40| 20 27 78 6d 69 6e 65 2d | 75 6e 68 69 64 65 2d 73 | 'xmine-|unhide-s|
|00002e50| 6f 75 6e 64 20 23 5b 6e | 69 6c 20 22 c0 20 ad 87 |ound #[n|il ". ..|
|00002e60| 09 3f ad 83 c2 0b 21 87 | 22 20 5b 78 6d 69 6e 65 |.?....!.|" [xmine|
|00002e70| 2d 70 6c 61 79 2d 73 6f | 75 6e 64 73 2d 70 20 78 |-play-so|unds-p x|
|00002e80| 6d 69 6e 65 2d 6e 6f 2d | 75 6e 68 69 64 65 2d 73 |mine-no-|unhide-s|
|00002e90| 6f 75 6e 64 20 70 6c 61 | 79 2d 73 6f 75 6e 64 2d |ound pla|y-sound-|
|00002ea0| 66 69 6c 65 20 78 6d 69 | 6e 65 2d 75 6e 68 69 64 |file xmi|ne-unhid|
|00002eb0| 65 2d 73 6f 75 6e 64 5d | 20 32 5d 29 0a 28 64 65 |e-sound]| 2]).(de|
|00002ec0| 66 61 6c 69 61 73 20 27 | 78 6d 69 6e 65 2d 75 6e |falias '|xmine-un|
|00002ed0| 68 69 64 65 2d 6d 61 6e | 79 2d 73 6f 75 6e 64 20 |hide-man|y-sound |
|00002ee0| 23 5b 6e 69 6c 20 22 c0 | 20 ad 83 c1 5c 6e 21 87 |#[nil ".| ...\n!.|
|00002ef0| 22 20 5b 78 6d 69 6e 65 | 2d 70 6c 61 79 2d 73 6f |" [xmine|-play-so|
|00002f00| 75 6e 64 73 2d 70 20 70 | 6c 61 79 2d 73 6f 75 6e |unds-p p|lay-soun|
|00002f10| 64 2d 66 69 6c 65 20 78 | 6d 69 6e 65 2d 75 6e 68 |d-file x|mine-unh|
|00002f20| 69 64 65 2d 6d 61 6e 79 | 2d 73 6f 75 6e 64 5d 20 |ide-many|-sound] |
|00002f30| 32 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 78 |2]).(def|alias 'x|
|00002f40| 6d 69 6e 65 2d 65 78 70 | 6c 6f 64 65 2d 73 6f 75 |mine-exp|lode-sou|
|00002f50| 6e 64 20 23 5b 6e 69 6c | 20 22 c0 20 ab 84 c1 5c |nd #[nil| ". ...\|
|00002f60| 6e 21 87 c3 20 87 22 20 | 5b 78 6d 69 6e 65 2d 70 |n!.. ." |[xmine-p|
|00002f70| 6c 61 79 2d 73 6f 75 6e | 64 73 2d 70 20 70 6c 61 |lay-soun|ds-p pla|
|00002f80| 79 2d 73 6f 75 6e 64 2d | 66 69 6c 65 20 78 6d 69 |y-sound-|file xmi|
|00002f90| 6e 65 2d 65 78 70 6c 6f | 64 65 2d 73 6f 75 6e 64 |ne-explo|de-sound|
|00002fa0| 20 62 65 65 70 5d 20 32 | 5d 29 0a 28 64 65 66 61 | beep] 2|]).(defa|
|00002fb0| 6c 69 61 73 20 27 78 6d | 69 6e 65 2d 73 6f 6c 76 |lias 'xm|ine-solv|
|00002fc0| 65 64 2d 73 6f 75 6e 64 | 20 23 5b 6e 69 6c 20 22 |ed-sound| #[nil "|
|00002fd0| c0 20 ab 84 c1 5c 6e 21 | 87 c3 20 87 22 20 5b 78 |. ...\n!|.. ." [x|
|00002fe0| 6d 69 6e 65 2d 70 6c 61 | 79 2d 73 6f 75 6e 64 73 |mine-pla|y-sounds|
|00002ff0| 2d 70 20 70 6c 61 79 2d | 73 6f 75 6e 64 2d 66 69 |-p play-|sound-fi|
|00003000| 6c 65 20 78 6d 69 6e 65 | 2d 73 6f 6c 76 65 64 2d |le xmine|-solved-|
|00003010| 73 6f 75 6e 64 20 62 65 | 65 70 5d 20 32 5d 29 0a |sound be|ep] 2]).|
|00003020| 28 64 65 66 61 6c 69 61 | 73 20 27 78 6d 69 6e 65 |(defalia|s 'xmine|
|00003030| 2d 66 69 65 6c 64 2d 72 | 65 70 61 69 6e 74 20 23 |-field-r|epaint #|
|00003040| 5b 28 65 78 74 29 20 22 | c0 09 21 1a c3 09 21 1c |[(ext) "|..!...!.|
|00003050| c5 09 21 1e 06 0e 07 0e | 08 5f c9 5f 1e 5c 6e cb |..!.....|._._.\n.|
|00003060| 1e 0c cb 1e 0d 5c 6e ab | bf 0e 06 89 41 16 06 40 |.....\n.|....A..@|
|00003070| 89 16 0c ab 9f ce 0e 0c | cf 5c 22 ab 6d d0 0e 0c |........|.\".m...|
|00003080| d1 5c 22 88 ce 0e 0c d2 | 5c 22 d3 6b ab 5e 0e 0c |.\".....|\".k.^..|
|00003090| 0e 0d 42 16 0d aa 55 0e | 0d ad a6 0e 0d 89 41 16 |..B...U.|......A.|
|000030a0| 0d 40 16 0c d4 0e 0c 21 | 88 aa 6c 0c ad 93 d5 09 |.@.....!|..l.....|
|000030b0| d6 0e 17 23 88 d5 09 d8 | 0e 17 23 88 d9 20 88 da |...#....|..#.. ..|
|000030c0| 20 2e 06 87 22 20 5b 78 | 6d 69 6e 65 2d 66 6c 61 | ..." [x|mine-fla|
|000030d0| 74 2d 62 75 74 74 6f 6e | 2d 70 20 65 78 74 20 66 |t-button|-p ext f|
|000030e0| 6c 61 74 70 20 78 6d 69 | 6e 65 2d 6d 69 6e 65 2d |latp xmi|ne-mine-|
|000030f0| 62 75 74 74 6f 6e 2d 70 | 20 6d 69 6e 65 70 20 78 |button-p| minep x|
|00003100| 6d 69 6e 65 2d 67 65 74 | 2d 6e 65 69 67 68 62 6f |mine-get|-neighbo|
|00003110| 75 72 73 20 6e 65 69 67 | 68 62 6f 75 72 73 20 78 |urs neig|hbours x|
|00003120| 6d 69 6e 65 2d 77 69 64 | 74 68 20 78 6d 69 6e 65 |mine-wid|th xmine|
|00003130| 2d 68 65 69 67 68 74 20 | 38 20 6d 61 78 2d 6c 69 |-height |8 max-li|
|00003140| 73 70 2d 65 76 61 6c 2d | 64 65 70 74 68 20 6e 69 |sp-eval-|depth ni|
|00003150| 6c 20 6e 65 78 74 2d 65 | 78 74 20 65 78 74 2d 6c |l next-e|xt ext-l|
|00003160| 69 73 74 20 65 78 74 65 | 6e 74 2d 70 72 6f 70 65 |ist exte|nt-prope|
|00003170| 72 74 79 20 78 6d 69 6e | 65 2d 68 69 64 64 65 6e |rty xmin|e-hidden|
|00003180| 20 78 6d 69 6e 65 2d 61 | 63 74 69 6f 6e 31 20 6e | xmine-a|ction1 n|
|00003190| 6f 2d 72 65 70 61 69 6e | 74 20 78 6d 69 6e 65 2d |o-repain|t xmine-|
|000031a0| 74 79 70 65 20 22 30 22 | 20 78 6d 69 6e 65 2d 66 |type "0"| xmine-f|
|000031b0| 69 65 6c 64 2d 72 65 70 | 61 69 6e 74 20 73 65 74 |ield-rep|aint set|
|000031c0| 2d 65 78 74 65 6e 74 2d | 70 72 6f 70 65 72 74 79 |-extent-|property|
|000031d0| 20 78 6d 69 6e 65 2d 67 | 6c 79 70 68 20 78 6d 69 | xmine-g|lyph xmi|
|000031e0| 6e 65 2d 74 72 61 70 70 | 65 64 2d 67 6c 79 70 68 |ne-trapp|ed-glyph|
|000031f0| 20 78 6d 69 6e 65 2d 73 | 65 6c 2d 67 6c 79 70 68 | xmine-s|el-glyph|
|00003200| 20 78 6d 69 6e 65 2d 73 | 68 6f 77 2d 61 6c 6c 20 | xmine-s|how-all |
|00003210| 78 6d 69 6e 65 2d 65 6e | 64 2d 67 61 6d 65 2d 74 |xmine-en|d-game-t|
|00003220| 72 61 70 70 65 64 5d 20 | 34 5d 29 0a 23 40 31 31 |rapped] |4]).#@11|
|00003230| 36 20 54 68 69 73 20 67 | 69 76 65 73 20 62 61 63 |6 This g|ives bac|
|00003240| 6b 20 61 20 6c 69 73 74 | 20 6f 66 20 61 6c 6c 20 |k a list| of all |
|00003250| 6e 65 69 67 68 62 6f 75 | 72 73 20 6f 66 20 61 20 |neighbou|rs of a |
|00003260| 62 75 74 74 6f 6e 2c 20 | 63 6f 72 72 65 63 74 6c |button, |correctl|
|00003270| 79 0a 20 20 68 61 6e 64 | 6c 69 6e 67 20 62 75 74 |y.  hand|ling but|
|00003280| 74 6f 6e 73 20 61 74 20 | 74 68 65 20 73 69 64 65 |tons at |the side|
|00003290| 20 6f 72 20 63 6f 72 6e | 65 72 20 6f 66 20 63 6f | or corn|er of co|
|000032a0| 75 72 73 65 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |urse..(d|efalias |
|000032b0| 27 78 6d 69 6e 65 2d 67 | 65 74 2d 6e 65 69 67 68 |'xmine-g|et-neigh|
|000032c0| 62 6f 75 72 73 20 23 5b | 28 65 78 74 29 20 22 c0 |bours #[|(ext) ".|
|000032d0| 09 c2 5c 22 1b c0 09 c4 | 5c 22 1d c6 1e 07 c6 1e |..\"....|\"......|
|000032e0| 08 c6 1e 09 0b 53 0d 54 | 44 0b 0d 54 44 0b 54 0d |.....S.T|D..TD.T.|
|000032f0| 54 44 0b 53 0d 53 44 0b | 0d 53 44 0b 54 0d 53 44 |TD.S.SD.|.SD.T.SD|
|00003300| 0b 54 0d 44 0b 53 0d 44 | af 08 1e 5c 6e 0e 5c 6e |.T.D.S.D|...\n.\n|
|00003310| 89 41 16 5c 6e 40 89 16 | 07 ab 97 cb 0e 07 40 0e |.A.\n@..|......@.|
|00003320| 07 41 40 5c 22 89 16 08 | ab 66 0e 08 0e 09 42 16 |.A@\"...|.f....B.|
|00003330| 09 aa 5d 0e 09 2e 06 87 | 22 20 5b 65 78 74 65 6e |..].....|" [exten|
|00003340| 74 2d 70 72 6f 70 65 72 | 74 79 20 65 78 74 20 78 |t-proper|ty ext x|
|00003350| 6d 69 6e 65 2d 78 20 78 | 20 78 6d 69 6e 65 2d 79 |mine-x x| xmine-y|
|00003360| 20 79 20 6e 69 6c 20 6e | 65 78 74 2d 63 6f 6f 72 | y nil n|ext-coor|
|00003370| 64 20 6e 65 78 74 20 6c | 69 73 74 20 6e 65 69 67 |d next l|ist neig|
|00003380| 68 62 6f 75 72 73 20 78 | 6d 69 6e 65 2d 66 69 65 |hbours x|mine-fie|
|00003390| 6c 64 2d 62 75 74 74 6f | 6e 2d 61 74 5d 20 39 20 |ld-butto|n-at] 9 |
|000033a0| 28 23 24 20 2e 20 31 32 | 38 35 30 29 5d 29 0a 23 |(#$ . 12|850)]).#|
|000033b0| 40 31 33 39 20 59 6f 75 | 20 68 61 76 65 20 73 6f |@139 You| have so|
|000033c0| 6c 76 65 64 20 74 68 65 | 20 67 61 6d 65 20 73 75 |lved the| game su|
|000033d0| 63 63 65 73 73 66 75 6c | 6c 79 20 69 66 20 74 68 |ccessful|ly if th|
|000033e0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 66 6c 61 67 |e number| of flag|
|000033f0| 67 65 64 0a 6d 69 6e 65 | 73 20 70 6c 75 73 20 74 |ged.mine|s plus t|
|00003400| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 75 6e 68 |he numbe|r of unh|
|00003410| 69 64 64 65 6e 20 62 75 | 74 74 6f 6e 73 20 65 71 |idden bu|ttons eq|
|00003420| 75 61 6c 73 20 77 69 64 | 74 68 2a 68 65 69 67 68 |uals wid|th*heigh|
|00003430| 74 20 6f 66 20 74 68 65 | 20 66 69 65 6c 64 1f 0a |t of the| field..|
|00003440| 28 64 65 66 61 6c 69 61 | 73 20 27 78 6d 69 6e 65 |(defalia|s 'xmine|
|00003450| 2d 67 61 6d 65 2d 73 6f | 6c 76 65 64 2d 70 20 23 |-game-so|lved-p #|
|00003460| 5b 6e 69 6c 20 22 08 09 | 5c 5c 5c 6e 0b 5f 6b 87 |[nil "..|\\\n._k.|
|00003470| 22 20 5b 78 6d 69 6e 65 | 2d 6e 75 6d 62 65 72 2d |" [xmine|-number-|
|00003480| 6f 66 2d 66 6c 61 67 67 | 65 64 20 78 6d 69 6e 65 |of-flagg|ed xmine|
|00003490| 2d 6e 75 6d 62 65 72 2d | 6f 66 2d 6f 70 65 6e 65 |-number-|of-opene|
|000034a0| 64 20 78 6d 69 6e 65 2d | 77 69 64 74 68 20 78 6d |d xmine-|width xm|
|000034b0| 69 6e 65 2d 68 65 69 67 | 68 74 5d 20 33 20 28 23 |ine-heig|ht] 3 (#|
|000034c0| 24 20 2e 20 31 33 32 33 | 37 29 5d 29 0a 28 64 65 |$ . 1323|7)]).(de|
|000034d0| 66 61 6c 69 61 73 20 27 | 78 6d 69 6e 65 2d 65 6e |falias '|xmine-en|
|000034e0| 64 2d 67 61 6d 65 20 23 | 5b 6e 69 6c 20 22 c0 09 |d-game #|[nil "..|
|000034f0| c2 c3 21 5c 22 88 c4 c5 | 21 88 c6 20 87 22 20 5b |..!\"...|!.. ." [|
|00003500| 73 65 74 2d 61 6e 6e 6f | 74 61 74 69 6f 6e 2d 67 |set-anno|tation-g|
|00003510| 6c 79 70 68 20 78 6d 69 | 6e 65 2d 63 6f 75 6e 74 |lyph xmi|ne-count|
|00003520| 2d 61 6e 6e 20 6d 61 6b | 65 2d 67 6c 79 70 68 20 |-ann mak|e-glyph |
|00003530| 22 20 53 6f 6c 76 65 64 | 2e 20 22 20 73 69 74 2d |" Solved|. " sit-|
|00003540| 66 6f 72 20 30 20 78 6d | 69 6e 65 2d 73 6f 6c 76 |for 0 xm|ine-solv|
|00003550| 65 64 2d 73 6f 75 6e 64 | 5d 20 34 5d 29 0a 28 64 |ed-sound|] 4]).(d|
|00003560| 65 66 61 6c 69 61 73 20 | 27 78 6d 69 6e 65 2d 65 |efalias |'xmine-e|
|00003570| 6e 64 2d 67 61 6d 65 2d | 74 72 61 70 70 65 64 20 |nd-game-|trapped |
|00003580| 23 5b 6e 69 6c 20 22 c0 | 20 88 c1 5c 6e c3 c4 21 |#[nil ".| ..\n..!|
|00003590| 5c 22 87 22 20 5b 78 6d | 69 6e 65 2d 65 78 70 6c |\"." [xm|ine-expl|
|000035a0| 6f 64 65 2d 73 6f 75 6e | 64 20 73 65 74 2d 61 6e |ode-soun|d set-an|
|000035b0| 6e 6f 74 61 74 69 6f 6e | 2d 67 6c 79 70 68 20 78 |notation|-glyph x|
|000035c0| 6d 69 6e 65 2d 63 6f 75 | 6e 74 2d 61 6e 6e 20 6d |mine-cou|nt-ann m|
|000035d0| 61 6b 65 2d 67 6c 79 70 | 68 20 22 2b 2b 20 52 49 |ake-glyp|h "++ RI|
|000035e0| 50 20 2b 2b 22 5d 20 34 | 5d 29 0a 28 64 65 66 61 |P ++"] 4|]).(defa|
|000035f0| 6c 69 61 73 20 27 78 6d | 69 6e 65 2d 73 68 6f 77 |lias 'xm|ine-show|
|00003600| 2d 61 6c 6c 20 23 5b 6e | 69 6c 20 22 c0 09 c2 5c |-all #[n|il "...\|
|00003610| 22 c2 1b 1c 0c 89 41 14 | 40 89 13 ad 88 c5 0b c6 |".....A.|@.......|
|00003620| c7 23 88 aa 6f 2a 87 22 | 20 5b 61 70 70 65 6e 64 |.#..o*."| [append|
|00003630| 20 78 6d 69 6e 65 2d 66 | 69 65 6c 64 20 6e 69 6c | xmine-f|ield nil|
|00003640| 20 6e 65 78 74 20 6c 69 | 73 74 20 78 6d 69 6e 65 | next li|st xmine|
|00003650| 2d 61 63 74 69 6f 6e 31 | 20 6e 6f 2d 72 65 70 61 |-action1| no-repa|
|00003660| 69 6e 74 20 66 6f 72 63 | 65 5d 20 34 5d 29 0a 23 |int forc|e] 4]).#|
|00003670| 40 34 38 39 20 54 68 69 | 73 20 66 75 6e 63 74 69 |@489 Thi|s functi|
|00003680| 6f 6e 20 67 69 76 65 73 | 20 62 61 63 6b 20 74 68 |on gives| back th|
|00003690| 65 20 62 75 74 74 6f 6e | 20 61 74 20 61 20 67 69 |e button| at a gi|
|000036a0| 76 65 6e 20 63 6f 6f 72 | 64 69 6e 61 74 65 20 70 |ven coor|dinate p|
|000036b0| 61 69 72 20 28 78 20 79 | 29 0a 49 74 20 69 73 20 |air (x y|).It is |
|000036c0| 6f 6e 6c 79 20 75 73 65 | 64 20 64 75 72 69 6e 67 |only use|d during|
|000036d0| 20 63 72 65 61 74 69 6f | 6e 20 6f 66 20 74 68 65 | creatio|n of the|
|000036e0| 20 62 6f 61 72 64 20 61 | 6e 64 20 77 68 65 6e 20 | board a|nd when |
|000036f0| 67 65 74 74 69 6e 67 20 | 74 68 65 0a 6e 65 69 67 |getting |the.neig|
|00003700| 68 62 6f 75 72 73 20 6f | 66 20 61 20 62 75 74 74 |hbours o|f a butt|
|00003710| 6f 6e 20 28 61 6e 64 20 | 66 6f 72 20 6b 65 79 62 |on (and |for keyb|
|00003720| 6f 61 72 64 20 68 61 6e | 64 6c 69 6e 67 2e 2e 2e |oard han|dling...|
|00003730| 29 2c 20 61 73 20 77 65 | 20 64 6f 6e 27 74 0a 77 |), as we| don't.w|
|00003740| 61 6e 74 20 74 6f 20 75 | 73 65 20 63 6f 6f 72 64 |ant to u|se coord|
|00003750| 69 6e 61 74 65 73 20 69 | 6e 20 74 68 65 20 6d 61 |inates i|n the ma|
|00003760| 69 6e 20 6c 6f 6f 70 2c | 20 6f 6e 6c 79 20 74 68 |in loop,| only th|
|00003770| 65 20 62 75 74 74 6f 6e | 20 6f 62 6a 65 63 74 0a |e button| object.|
|00003780| 69 74 73 65 6c 66 20 73 | 68 6f 75 6c 64 20 62 65 |itself s|hould be|
|00003790| 20 72 65 66 65 72 65 6e | 63 65 64 2e 20 4f 66 20 | referen|ced. Of |
|000037a0| 63 6f 75 72 73 65 20 74 | 68 65 20 75 73 65 20 6f |course t|he use o|
|000037b0| 66 20 74 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |f this f|unction |
|000037c0| 63 6f 75 6c 64 0a 62 65 | 20 61 76 6f 69 64 65 64 |could.be| avoided|
|000037d0| 20 69 6e 20 78 6d 69 6e | 65 2d 67 65 74 2d 6e 65 | in xmin|e-get-ne|
|000037e0| 69 67 68 62 6f 75 72 73 | 20 62 79 20 73 74 6f 72 |ighbours| by stor|
|000037f0| 69 6e 67 20 74 68 65 20 | 6e 65 69 67 68 62 6f 75 |ing the |neighbou|
|00003800| 72 20 62 75 74 74 6f 6e | 73 0a 64 69 72 65 63 74 |r button|s.direct|
|00003810| 6c 79 20 69 6e 20 74 68 | 65 20 62 75 74 74 6f 6e |ly in th|e button|
|00003820| 2c 20 62 75 74 20 74 68 | 69 73 20 73 65 65 6d 73 |, but th|is seems|
|00003830| 20 74 6f 20 62 65 20 61 | 20 62 69 74 20 6f 76 65 | to be a| bit ove|
|00003840| 72 73 69 7a 65 64 20 66 | 6f 72 20 74 68 69 73 0a |rsized f|or this.|
|00003850| 6c 69 74 74 6c 65 20 67 | 61 6d 65 2e 1f 0a 28 64 |little g|ame...(d|
|00003860| 65 66 61 6c 69 61 73 20 | 27 78 6d 69 6e 65 2d 66 |efalias |'xmine-f|
|00003870| 69 65 6c 64 2d 62 75 74 | 74 6f 6e 2d 61 74 20 23 |ield-but|ton-at #|
|00003880| 5b 28 78 20 79 29 20 22 | 08 09 56 ae 8d 08 c2 57 |[(x y) "|..V....W|
|00003890| ae 88 0b 0c 56 ae 83 0b | c2 57 3f ad 89 0d 0b 53 |....V...|.W?....S|
|000038a0| 09 5f 08 53 5c 5c 48 87 | 22 20 5b 78 20 78 6d 69 |._.S\\H.|" [x xmi|
|000038b0| 6e 65 2d 77 69 64 74 68 | 20 31 20 79 20 78 6d 69 |ne-width| 1 y xmi|
|000038c0| 6e 65 2d 68 65 69 67 68 | 74 20 78 6d 69 6e 65 2d |ne-heigh|t xmine-|
|000038d0| 66 69 65 6c 64 5d 20 33 | 20 28 23 24 20 2e 20 31 |field] 3| (#$ . 1|
|000038e0| 33 39 34 31 29 5d 29 0a | 23 40 31 35 39 37 20 41 |3941)]).|#@1597 A|
|000038f0| 20 6d 6f 64 65 20 66 6f | 72 20 70 6c 61 79 69 6e | mode fo|r playin|
|00003900| 67 20 74 68 65 20 77 65 | 6c 6c 20 6b 6e 6f 77 6e |g the we|ll known|
|00003910| 20 6d 69 6e 65 20 73 65 | 61 72 63 68 69 6e 67 20 | mine se|arching |
|00003920| 67 61 6d 65 2e 0a 0a 20 | 20 20 60 5c 3c 61 6e 6e |game... |  `\<ann|
|00003930| 6f 74 61 74 69 6f 6e 2d | 6c 6f 63 61 6c 2d 6d 61 |otation-|local-ma|
|00003940| 70 2d 64 65 66 61 75 6c | 74 3e 5c 5b 78 6d 69 6e |p-defaul|t>\[xmin|
|00003950| 65 2d 61 63 74 69 76 61 | 74 65 2d 66 75 6e 63 74 |e-activa|te-funct|
|00003960| 69 6f 6e 2d 62 75 74 74 | 6f 6e 31 5d 27 20 6f 72 |ion-butt|on1]' or|
|00003970| 20 60 5c 3c 78 6d 69 6e | 65 2d 6b 65 79 6d 61 70 | `\<xmin|e-keymap|
|00003980| 3e 5c 5b 78 6d 69 6e 65 | 2d 6b 65 79 2d 61 63 74 |>\[xmine|-key-act|
|00003990| 69 6f 6e 31 5d 27 20 75 | 6e 68 69 64 65 73 20 61 |ion1]' u|nhides a|
|000039a0| 20 74 69 6c 65 2c 0a 20 | 20 20 60 5c 3c 61 6e 6e | tile,. |  `\<ann|
|000039b0| 6f 74 61 74 69 6f 6e 2d | 6c 6f 63 61 6c 2d 6d 61 |otation-|local-ma|
|000039c0| 70 2d 64 65 66 61 75 6c | 74 3e 5c 5b 78 6d 69 6e |p-defaul|t>\[xmin|
|000039d0| 65 2d 61 63 74 69 76 61 | 74 65 2d 66 75 6e 63 74 |e-activa|te-funct|
|000039e0| 69 6f 6e 2d 62 75 74 74 | 6f 6e 32 5d 27 20 6f 72 |ion-butt|on2]' or|
|000039f0| 20 60 5c 3c 78 6d 69 6e | 65 2d 6b 65 79 6d 61 70 | `\<xmin|e-keymap|
|00003a00| 3e 5c 5b 78 6d 69 6e 65 | 2d 6b 65 79 2d 61 63 74 |>\[xmine|-key-act|
|00003a10| 69 6f 6e 32 5d 27 20 75 | 6e 68 69 64 65 73 20 61 |ion2]' u|nhides a|
|00003a20| 6c 6c 20 6e 65 69 67 68 | 62 6f 75 72 73 20 6f 66 |ll neigh|bours of|
|00003a30| 20 61 20 74 69 6c 65 2c | 0a 20 20 20 60 5c 3c 61 | a tile,|.   `\<a|
|00003a40| 6e 6e 6f 74 61 74 69 6f | 6e 2d 6c 6f 63 61 6c 2d |nnotatio|n-local-|
|00003a50| 6d 61 70 2d 64 65 66 61 | 75 6c 74 3e 5c 5b 78 6d |map-defa|ult>\[xm|
|00003a60| 69 6e 65 2d 61 63 74 69 | 76 61 74 65 2d 66 75 6e |ine-acti|vate-fun|
|00003a70| 63 74 69 6f 6e 2d 62 75 | 74 74 6f 6e 33 5d 27 20 |ction-bu|tton3]' |
|00003a80| 6f 72 20 60 5c 3c 78 6d | 69 6e 65 2d 6b 65 79 6d |or `\<xm|ine-keym|
|00003a90| 61 70 3e 5c 5b 78 6d 69 | 6e 65 2d 6b 65 79 2d 61 |ap>\[xmi|ne-key-a|
|00003aa0| 63 74 69 6f 6e 33 5d 27 | 20 28 75 6e 29 66 6c 61 |ction3]'| (un)fla|
|00003ab0| 67 67 65 73 20 61 20 74 | 69 6c 65 20 74 6f 20 68 |gges a t|ile to h|
|00003ac0| 6f 6c 64 20 61 20 6d 69 | 6e 65 2e 0a 0a 20 20 20 |old a mi|ne...   |
|00003ad0| 60 5c 5b 78 6d 69 6e 65 | 2d 6b 65 79 2d 6e 65 77 |`\[xmine|-key-new|
|00003ae0| 5d 27 20 73 74 61 72 74 | 73 20 61 20 6e 65 77 20 |]' start|s a new |
|00003af0| 67 61 6d 65 2e 0a 20 20 | 20 60 5c 5b 78 6d 69 6e |game..  | `\[xmin|
|00003b00| 65 2d 6b 65 79 2d 71 75 | 69 74 5d 27 20 65 6e 64 |e-key-qu|it]' end|
|00003b10| 73 20 61 20 67 61 6d 65 | 2e 0a 0a 41 6c 6c 20 6b |s a game|...All k|
|00003b20| 65 79 62 69 6e 64 69 6e | 67 73 20 28 77 69 74 68 |eybindin|gs (with|
|00003b30| 20 61 6c 74 65 72 6e 61 | 74 69 76 65 73 29 20 63 | alterna|tives) c|
|00003b40| 75 72 72 65 6e 74 6c 79 | 20 69 6e 20 65 66 66 65 |urrently| in effe|
|00003b50| 63 74 3a 0a 20 20 20 5c | 7b 78 6d 69 6e 65 2d 6b |ct:.   \|{xmine-k|
|00003b60| 65 79 6d 61 70 7d 0a 0a | 54 68 65 20 72 75 6c 65 |eymap}..|The rule|
|00003b70| 73 20 61 72 65 20 71 75 | 69 74 65 20 65 61 73 79 |s are qu|ite easy|
|00003b80| 3a 20 59 6f 75 20 73 74 | 61 72 74 20 62 79 20 75 |: You st|art by u|
|00003b90| 6e 68 69 64 69 6e 67 20 | 28 72 61 6e 64 6f 6d 29 |nhiding |(random)|
|00003ba0| 20 74 69 6c 65 73 2e 20 | 41 6e 20 75 6e 68 69 64 | tiles. |An unhid|
|00003bb0| 64 65 6e 0a 74 69 6c 65 | 20 73 68 6f 77 69 6e 67 |den.tile| showing|
|00003bc0| 20 61 20 6e 75 6d 62 65 | 72 20 74 65 6c 6c 73 20 | a numbe|r tells |
|00003bd0| 79 6f 75 20 73 6f 6d 65 | 74 68 69 6e 67 20 61 62 |you some|thing ab|
|00003be0| 6f 75 74 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |out the |number o|
|00003bf0| 66 20 6d 69 6e 65 73 20 | 69 6e 20 69 74 27 73 0a |f mines |in it's.|
|00003c00| 6e 65 69 67 68 62 6f 72 | 68 6f 6f 64 2c 20 77 68 |neighbor|hood, wh|
|00003c10| 65 72 65 20 74 68 65 20 | 6e 65 69 67 68 62 6f 72 |ere the |neighbor|
|00003c20| 68 6f 6f 64 20 61 72 65 | 20 61 6c 6c 20 38 20 74 |hood are| all 8 t|
|00003c30| 69 6c 65 73 20 28 6f 72 | 20 6c 65 73 73 20 69 66 |iles (or| less if|
|00003c40| 20 69 74 27 73 0a 61 74 | 20 61 20 62 6f 72 64 65 | it's.at| a borde|
|00003c50| 72 29 20 61 72 6f 75 6e | 64 20 74 68 65 20 74 69 |r) aroun|d the ti|
|00003c60| 6c 65 2e 0a 0a 45 2e 67 | 2e 20 61 20 22 31 22 20 |le...E.g|. a "1" |
|00003c70| 73 68 6f 77 73 20 79 6f | 75 20 74 68 61 74 20 74 |shows yo|u that t|
|00003c80| 68 65 72 65 20 69 73 20 | 6f 6e 6c 79 20 6f 6e 65 |here is |only one|
|00003c90| 20 6d 69 6e 65 20 69 6e | 20 74 68 65 20 6e 65 69 | mine in| the nei|
|00003ca0| 67 68 62 6f 72 68 6f 6f | 64 20 6f 66 0a 74 68 69 |ghborhoo|d of.thi|
|00003cb0| 73 20 74 69 6c 65 2e 20 | 45 6d 70 74 79 20 74 69 |s tile. |Empty ti|
|00003cc0| 6c 65 73 20 68 61 76 65 | 20 6e 6f 20 6d 69 6e 65 |les have| no mine|
|00003cd0| 73 20 61 72 6f 75 6e 64 | 20 74 68 65 6d 2c 20 61 |s around| them, a|
|00003ce0| 6e 64 20 65 6d 70 74 79 | 20 74 69 6c 65 73 20 69 |nd empty| tiles i|
|00003cf0| 6e 0a 74 68 65 20 6e 65 | 69 67 68 62 6f 72 68 6f |n.the ne|ighborho|
|00003d00| 6f 64 20 6f 66 20 61 6e | 6f 74 68 65 72 20 65 6d |od of an|other em|
|00003d10| 70 74 79 20 74 69 6c 65 | 20 61 72 65 20 61 6c 6c |pty tile| are all|
|00003d20| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 20 75 | automat|ically u|
|00003d30| 6e 68 69 64 64 65 6e 0a | 69 66 20 79 6f 75 20 75 |nhidden.|if you u|
|00003d40| 6e 68 69 64 65 20 6f 6e | 65 20 6f 66 20 74 68 65 |nhide on|e of the|
|00003d50| 6d 2e 20 59 6f 75 20 6e | 65 65 64 20 74 6f 20 66 |m. You n|eed to f|
|00003d60| 69 6e 64 20 61 20 73 74 | 72 61 74 65 67 79 20 74 |ind a st|rategy t|
|00003d70| 6f 20 75 73 65 20 74 68 | 65 0a 69 6e 66 6f 72 6d |o use th|e.inform|
|00003d80| 61 74 69 6f 6e 20 79 6f | 75 20 68 61 76 65 20 66 |ation yo|u have f|
|00003d90| 72 6f 6d 20 74 68 65 20 | 6e 75 6d 62 65 72 73 20 |rom the |numbers |
|00003da0| 74 6f 20 22 66 6c 61 67 | 22 20 74 68 65 20 74 69 |to "flag|" the ti|
|00003db0| 6c 65 73 20 77 69 74 68 | 20 6d 69 6e 65 73 0a 75 |les with| mines.u|
|00003dc0| 6e 64 65 72 20 74 68 65 | 6d 20 61 6e 64 20 75 6e |nder the|m and un|
|00003dd0| 68 69 64 65 20 61 6c 6c | 20 6f 74 68 65 72 20 74 |hide all| other t|
|00003de0| 69 6c 65 73 2e 20 49 66 | 20 79 6f 75 20 63 6f 72 |iles. If| you cor|
|00003df0| 72 65 63 74 6c 79 20 6d | 61 64 65 20 74 68 69 73 |rectly m|ade this|
|00003e00| 0a 77 69 74 68 6f 75 74 | 20 61 63 63 69 64 65 6e |.without| acciden|
|00003e10| 74 6c 79 20 75 6e 68 69 | 64 69 6e 67 20 61 20 6d |tly unhi|ding a m|
|00003e20| 69 6e 65 2c 20 79 6f 75 | 27 76 65 20 77 6f 6e 2e |ine, you|'ve won.|
|00003e30| 0a 0a 49 66 20 79 6f 75 | 20 61 72 65 20 73 75 72 |..If you| are sur|
|00003e40| 65 20 79 6f 75 20 68 61 | 76 65 20 63 6f 72 72 65 |e you ha|ve corre|
|00003e50| 63 74 6c 79 20 66 6c 61 | 67 67 65 64 20 61 6c 6c |ctly fla|gged all|
|00003e60| 20 6d 69 6e 65 73 20 61 | 72 6f 75 6e 64 20 61 20 | mines a|round a |
|00003e70| 75 6e 68 69 64 64 65 6e | 20 74 69 6c 65 2c 0a 79 |unhidden| tile,.y|
|00003e80| 6f 75 20 63 61 6e 20 75 | 73 65 20 42 75 74 74 6f |ou can u|se Butto|
|00003e90| 6e 2d 32 20 6f 72 20 5c | 5b 78 6d 69 6e 65 2d 6b |n-2 or \|[xmine-k|
|00003ea0| 65 79 2d 61 63 74 69 6f | 6e 32 5d 20 6f 6e 20 69 |ey-actio|n2] on i|
|00003eb0| 74 20 74 6f 20 75 6e 68 | 69 64 65 20 61 6c 6c 20 |t to unh|ide all |
|00003ec0| 69 74 27 73 0a 6e 65 69 | 67 68 62 6f 72 73 2e 20 |it's.nei|ghbors. |
|00003ed0| 42 75 74 20 62 65 77 61 | 72 65 3a 20 49 66 20 79 |But bewa|re: If y|
|00003ee0| 6f 75 20 6d 61 64 65 20 | 61 20 6d 69 73 74 61 6b |ou made |a mistak|
|00003ef0| 65 20 62 79 20 66 6c 61 | 67 67 69 6e 67 20 74 68 |e by fla|gging th|
|00003f00| 65 20 77 72 6f 6e 67 20 | 6d 69 6e 65 73 2c 0a 79 |e wrong |mines,.y|
|00003f10| 6f 75 27 6c 6c 20 62 6c | 6f 77 20 75 70 21 20 0a |ou'll bl|ow up! .|
|00003f20| 0a 48 61 76 65 20 46 75 | 6e 2e 1f 0a 28 64 65 66 |.Have Fu|n...(def|
|00003f30| 61 6c 69 61 73 20 27 78 | 6d 69 6e 65 2d 6d 6f 64 |alias 'x|mine-mod|
|00003f40| 65 20 23 5b 6e 69 6c 20 | 22 c0 20 87 22 20 5b 78 |e #[nil |". ." [x|
|00003f50| 6d 69 6e 65 2d 66 69 65 | 6c 64 2d 63 72 65 61 74 |mine-fie|ld-creat|
|00003f60| 65 5d 20 31 20 28 23 24 | 20 2e 20 31 34 35 37 35 |e] 1 (#$| . 14575|
|00003f70| 29 20 6e 69 6c 5d 29 0a | 28 66 73 65 74 20 27 78 |) nil]).|(fset 'x|
|00003f80| 6d 69 6e 65 20 27 78 6d | 69 6e 65 2d 6d 6f 64 65 |mine 'xm|ine-mode|
|00003f90| 29 0a 23 40 33 35 20 57 | 65 20 63 72 65 61 74 65 |).#@35 W|e create|
|00003fa0| 20 74 68 65 20 70 6c 61 | 79 69 6e 67 20 62 6f 61 | the pla|ying boa|
|00003fb0| 72 64 20 68 65 72 65 2e | 1f 0a 28 64 65 66 61 6c |rd here.|..(defal|
|00003fc0| 69 61 73 20 27 78 6d 69 | 6e 65 2d 66 69 65 6c 64 |ias 'xmi|ne-field|
|00003fd0| 2d 63 72 65 61 74 65 20 | 23 5b 6e 69 6c 20 22 c0 |-create |#[nil ".|
|00003fe0| 89 c1 89 1a 1b 1c 1d c6 | 20 88 c7 0e 08 21 88 0e |........| ....!..|
|00003ff0| 09 0e 5c 6e 5f 12 cb 5c | 6e c1 5c 22 16 0c cd ce |..\n_..\|n.\"....|
|00004000| cf d0 0e 11 21 d2 a5 5c | 6e 5f 21 5e 89 16 13 21 |....!..\|n_!^...!|
|00004010| 88 d4 63 88 d5 d6 60 60 | 5c 22 0e 17 5c 22 88 d8 |..c...``|\"..\"..|
|00004020| 63 88 0c 0e 09 58 ab ae | d9 63 88 0d 0e 5c 6e 58 |c....X..|.c...\nX|
|00004030| ab 9a da 0d 0c 5c 22 ab | 88 db 0d 0c dc 23 88 aa |.....\".|.....#..|
|00004040| 86 db 0d 0c dd 23 88 0d | 54 89 15 aa 61 de 63 88 |.....#..|T...a.c.|
|00004050| c0 15 0c 54 89 14 aa 4d | df 63 88 e0 d6 60 60 5c |...T...M|.c...``\|
|00004060| 22 0e 21 5c 22 88 e2 0e | 23 c1 e4 c1 89 0e 25 c1 |".!\"...|#.....%.|
|00004070| 26 07 16 26 e7 0e 26 e8 | e9 23 88 e7 0e 26 ea c1 |&..&..&.|.#...&..|
|00004080| 23 88 e7 0e 26 eb c1 23 | 88 e7 0e 26 ec ed 23 88 |#...&..#|...&..#.|
|00004090| e0 d6 60 60 5c 22 0e 21 | 5c 22 88 e2 0e 2e c1 e4 |..``\".!|\"......|
|000040a0| c1 89 89 89 26 07 16 2f | e0 d6 60 60 5c 22 0e 21 |....&../|..``\".!|
|000040b0| 5c 22 88 e2 0e 30 c1 e4 | c1 89 0e 31 c1 26 07 16 |\"...0..|...1.&..|
|000040c0| 32 e7 0e 32 e8 f3 23 88 | e7 0e 32 ea c1 23 88 e7 |2..2..#.|..2..#..|
|000040d0| 0e 32 eb c1 23 88 e7 0e | 32 ec ed 23 88 f4 20 88 |.2..#...|2..#.. .|
|000040e0| f5 16 36 f5 16 37 f8 0e | 2f f9 fa fb 0e 13 5c 22 |..6..7..|/.....\"|
|000040f0| 21 5c 22 88 65 62 88 ed | 16 3c 0e 3d fe 61 ab 8e |!\".eb..|.<.=.a..|
|00004100| ff 81 40 00 81 41 00 21 | 0e 42 0e 08 23 88 ff 81 |..@..A.!|.B..#...|
|00004110| 40 00 81 43 00 21 0e 42 | 0e 08 23 88 c1 16 44 81 |@..C.!.B|..#...D.|
|00004120| 45 00 da 0e 5c 6e 81 46 | 00 a5 0e 09 81 46 00 a5 |E...\n.F|.....F..|
|00004130| 5c 22 21 2c 87 22 20 5b | 31 20 6e 69 6c 20 74 6f |\"!,." [|1 nil to|
|00004140| 74 61 6c 20 70 6f 70 2d | 75 70 2d 77 69 6e 64 6f |tal pop-|up-windo|
|00004150| 77 73 20 68 65 69 67 68 | 74 20 77 69 64 74 68 20 |ws heigh|t width |
|00004160| 78 6d 69 6e 65 2d 62 75 | 66 66 65 72 2d 69 6e 69 |xmine-bu|ffer-ini|
|00004170| 74 20 70 6f 70 2d 74 6f | 2d 62 75 66 66 65 72 20 |t pop-to|-buffer |
|00004180| 78 6d 69 6e 65 2d 62 75 | 66 66 65 72 20 78 6d 69 |xmine-bu|ffer xmi|
|00004190| 6e 65 2d 68 65 69 67 68 | 74 20 78 6d 69 6e 65 2d |ne-heigh|t xmine-|
|000041a0| 77 69 64 74 68 20 6d 61 | 6b 65 2d 76 65 63 74 6f |width ma|ke-vecto|
|000041b0| 72 20 78 6d 69 6e 65 2d | 66 69 65 6c 64 20 78 6d |r xmine-|field xm|
|000041c0| 69 6e 65 2d 69 6e 69 74 | 2d 6d 69 6e 65 73 20 39 |ine-init|-mines 9|
|000041d0| 39 20 72 6f 75 6e 64 20 | 66 6c 6f 61 74 20 78 6d |9 round |float xm|
|000041e0| 69 6e 65 2d 25 2d 6f 66 | 2d 6d 69 6e 65 73 20 31 |ine-%-of|-mines 1|
|000041f0| 30 30 20 78 6d 69 6e 65 | 2d 6e 75 6d 62 65 72 2d |00 xmine|-number-|
|00004200| 6f 66 2d 6d 69 6e 65 73 | 20 22 5c 6e 20 22 20 73 |of-mines| "\n " s|
|00004210| 65 74 2d 65 78 74 65 6e | 74 2d 65 6e 64 2d 67 6c |et-exten|t-end-gl|
|00004220| 79 70 68 20 6d 61 6b 65 | 2d 65 78 74 65 6e 74 20 |yph make|-extent |
|00004230| 78 6d 69 6e 65 2d 74 69 | 74 6c 65 2d 67 6c 79 70 |xmine-ti|tle-glyp|
|00004240| 68 20 22 5c 6e 5c 6e 22 | 20 22 20 22 20 78 6d 69 |h "\n\n"| " " xmi|
|00004250| 6e 65 2d 66 69 65 6c 64 | 2d 62 75 74 74 6f 6e 2d |ne-field|-button-|
|00004260| 61 74 20 78 6d 69 6e 65 | 2d 62 75 74 74 6f 6e 2d |at xmine|-button-|
|00004270| 63 72 65 61 74 65 20 22 | 6d 69 6e 65 22 20 22 30 |create "|mine" "0|
|00004280| 22 20 22 20 5c 6e 22 20 | 22 5c 6e 20 20 22 20 73 |" " \n" |"\n  " s|
|00004290| 65 74 2d 65 78 74 65 6e | 74 2d 62 65 67 69 6e 2d |et-exten|t-begin-|
|000042a0| 67 6c 79 70 68 20 78 6d | 69 6e 65 2d 70 61 64 2d |glyph xm|ine-pad-|
|000042b0| 67 6c 79 70 68 20 6d 61 | 6b 65 2d 61 6e 6e 6f 74 |glyph ma|ke-annot|
|000042c0| 61 74 69 6f 6e 20 78 6d | 69 6e 65 2d 6e 65 77 2d |ation xm|ine-new-|
|000042d0| 75 70 20 74 65 78 74 20 | 78 6d 69 6e 65 2d 6e 65 |up text |xmine-ne|
|000042e0| 77 2d 64 6f 77 6e 20 78 | 6d 69 6e 65 2d 6e 65 77 |w-down x|mine-new|
|000042f0| 2d 61 6e 6e 20 73 65 74 | 2d 65 78 74 65 6e 74 2d |-ann set|-extent-|
|00004300| 70 72 6f 70 65 72 74 79 | 20 61 63 74 69 6f 6e 31 |property| action1|
|00004310| 20 28 6c 61 6d 62 64 61 | 20 28 26 72 65 73 74 20 | (lambda| (&rest |
|00004320| 65 67 61 6c 29 20 28 78 | 6d 69 6e 65 2d 66 69 65 |egal) (x|mine-fie|
|00004330| 6c 64 2d 63 72 65 61 74 | 65 29 29 20 61 63 74 69 |ld-creat|e)) acti|
|00004340| 6f 6e 32 20 61 63 74 69 | 6f 6e 33 20 65 6e 64 2d |on2 acti|on3 end-|
|00004350| 6f 70 65 6e 20 74 20 78 | 6d 69 6e 65 2d 63 6f 75 |open t x|mine-cou|
|00004360| 6e 74 2d 67 6c 79 70 68 | 20 78 6d 69 6e 65 2d 63 |nt-glyph| xmine-c|
|00004370| 6f 75 6e 74 2d 61 6e 6e | 20 78 6d 69 6e 65 2d 71 |ount-ann| xmine-q|
|00004380| 75 69 74 2d 75 70 20 78 | 6d 69 6e 65 2d 71 75 69 |uit-up x|mine-qui|
|00004390| 74 2d 64 6f 77 6e 20 78 | 6d 69 6e 65 2d 71 75 69 |t-down x|mine-qui|
|000043a0| 74 2d 61 6e 6e 20 28 6c | 61 6d 62 64 61 20 28 26 |t-ann (l|ambda (&|
|000043b0| 72 65 73 74 20 65 67 61 | 6c 29 20 28 6b 69 6c 6c |rest ega|l) (kill|
|000043c0| 2d 62 75 66 66 65 72 20 | 28 63 75 72 72 65 6e 74 |-buffer |(current|
|000043d0| 2d 62 75 66 66 65 72 29 | 29 29 20 78 6d 69 6e 65 |-buffer)|)) xmine|
|000043e0| 2d 61 74 74 61 63 68 2d | 6e 75 6d 62 65 72 73 20 |-attach-|numbers |
|000043f0| 30 20 78 6d 69 6e 65 2d | 6e 75 6d 62 65 72 2d 6f |0 xmine-|number-o|
|00004400| 66 2d 66 6c 61 67 67 65 | 64 20 78 6d 69 6e 65 2d |f-flagge|d xmine-|
|00004410| 6e 75 6d 62 65 72 2d 6f | 66 2d 6f 70 65 6e 65 64 |number-o|f-opened|
|00004420| 20 73 65 74 2d 61 6e 6e | 6f 74 61 74 69 6f 6e 2d | set-ann|otation-|
|00004430| 67 6c 79 70 68 20 6d 61 | 6b 65 2d 67 6c 79 70 68 |glyph ma|ke-glyph|
|00004440| 20 66 6f 72 6d 61 74 20 | 22 4d 69 6e 65 73 3a 20 | format |"Mines: |
|00004450| 25 32 64 22 20 62 75 66 | 66 65 72 2d 72 65 61 64 |%2d" buf|fer-read|
|00004460| 2d 6f 6e 6c 79 20 77 69 | 6e 64 6f 77 2d 73 79 73 |-only wi|ndow-sys|
|00004470| 74 65 6d 20 78 20 73 65 | 74 2d 73 70 65 63 69 66 |tem x se|t-specif|
|00004480| 69 65 72 20 66 61 63 65 | 2d 62 61 63 6b 67 72 6f |ier face|-backgro|
|00004490| 75 6e 64 20 64 65 66 61 | 75 6c 74 20 78 6d 69 6e |und defa|ult xmin|
|000044a0| 65 2d 62 61 63 6b 67 72 | 6f 75 6e 64 20 74 65 78 |e-backgr|ound tex|
|000044b0| 74 2d 63 75 72 73 6f 72 | 20 78 6d 69 6e 65 2d 6b |t-cursor| xmine-k|
|000044c0| 65 79 2d 73 65 6c 2d 62 | 75 74 74 6f 6e 20 78 6d |ey-sel-b|utton xm|
|000044d0| 69 6e 65 2d 73 65 6c 65 | 63 74 2d 62 75 74 74 6f |ine-sele|ct-butto|
|000044e0| 6e 20 32 5d 20 39 20 28 | 23 24 20 2e 20 31 36 32 |n 2] 9 (|#$ . 162|
|000044f0| 37 39 29 5d 29 0a 23 40 | 31 34 39 20 41 20 73 75 |79)]).#@|149 A su|
|00004500| 62 72 6f 75 74 69 6e 65 | 20 66 6f 72 20 78 6d 69 |broutine| for xmi|
|00004510| 6e 65 2d 66 69 65 6c 64 | 20 63 72 65 61 74 65 2e |ne-field| create.|
|00004520| 0a 57 65 20 72 61 6e 64 | 6f 6d 6c 79 20 73 65 74 |.We rand|omly set|
|00004530| 20 61 20 70 61 72 74 20 | 6f 66 20 74 68 65 20 6e | a part |of the n|
|00004540| 69 6c 2d 66 69 6c 6c 65 | 64 20 62 6f 61 72 64 20 |il-fille|d board |
|00004550| 76 65 63 74 6f 72 20 77 | 69 74 68 20 74 20 74 6f |vector w|ith t to|
|00004560| 0a 69 6e 64 69 63 61 74 | 65 20 74 68 65 20 70 6c |.indicat|e the pl|
|00004570| 61 63 65 73 20 77 68 65 | 72 65 20 6d 69 6e 65 73 |aces whe|re mines|
|00004580| 20 73 68 6f 75 6c 64 20 | 72 65 73 69 64 65 2e 1f | should |reside..|
|00004590| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 78 6d 69 6e |.(defali|as 'xmin|
|000045a0| 65 2d 69 6e 69 74 2d 6d | 69 6e 65 73 20 23 5b 28 |e-init-m|ines #[(|
|000045b0| 6e 75 6d 29 20 22 c0 89 | 89 19 1a 1b c4 c5 21 88 |num) "..|......!.|
|000045c0| 0e 06 c7 56 ad a9 c4 0e | 08 21 54 13 c4 0e 09 21 |...V....|.!T....!|
|000045d0| 54 12 ca 0b 5c 6e 5c 22 | 89 11 ac 66 0e 0b 5c 6e |T...\n\"|...f..\n|
|000045e0| 53 0e 08 5f 0b 53 5c 5c | c5 49 88 0e 06 53 89 16 |S.._.S\\|.I...S..|
|000045f0| 06 aa 53 2b 87 22 20 5b | 6e 69 6c 20 65 6c 65 6d |..S+." [|nil elem|
|00004600| 20 79 20 78 20 72 61 6e | 64 6f 6d 20 74 20 6e 75 | y x ran|dom t nu|
|00004610| 6d 20 30 20 78 6d 69 6e | 65 2d 77 69 64 74 68 20 |m 0 xmin|e-width |
|00004620| 78 6d 69 6e 65 2d 68 65 | 69 67 68 74 20 78 6d 69 |xmine-he|ight xmi|
|00004630| 6e 65 2d 66 69 65 6c 64 | 2d 62 75 74 74 6f 6e 2d |ne-field|-button-|
|00004640| 61 74 20 78 6d 69 6e 65 | 2d 66 69 65 6c 64 5d 20 |at xmine|-field] |
|00004650| 34 20 28 23 24 20 2e 20 | 31 37 36 36 30 29 5d 29 |4 (#$ . |17660)])|
|00004660| 0a 23 40 31 36 31 20 41 | 20 73 75 62 72 6f 75 74 |.#@161 A| subrout|
|00004670| 69 6e 65 20 66 6f 72 20 | 78 6d 69 6e 65 2d 66 69 |ine for |xmine-fi|
|00004680| 65 6c 64 2d 63 72 65 61 | 74 65 2e 0a 54 68 65 20 |eld-crea|te..The |
|00004690| 62 6f 61 72 64 20 69 73 | 20 70 6f 70 75 6c 61 74 |board is| populat|
|000046a0| 65 64 20 62 79 20 6e 6f | 77 20 77 69 74 68 20 65 |ed by no|w with e|
|000046b0| 6d 70 74 79 20 62 75 74 | 74 6f 6e 73 20 61 6e 64 |mpty but|tons and|
|000046c0| 20 6d 69 6e 65 73 2e 20 | 48 65 72 65 20 77 65 0a | mines. |Here we.|
|000046d0| 63 68 61 6e 67 65 20 74 | 68 65 20 63 6f 72 72 65 |change t|he corre|
|000046e0| 63 74 20 65 6d 70 74 79 | 20 62 75 74 74 6f 6e 73 |ct empty| buttons|
|000046f0| 20 74 6f 20 22 6e 75 6d | 62 65 72 65 64 22 20 62 | to "num|bered" b|
|00004700| 75 74 74 6f 6e 73 1f 0a | 28 64 65 66 61 6c 69 61 |uttons..|(defalia|
|00004710| 73 20 27 78 6d 69 6e 65 | 2d 61 74 74 61 63 68 2d |s 'xmine|-attach-|
|00004720| 6e 75 6d 62 65 72 73 20 | 23 5b 6e 69 6c 20 22 c0 |numbers |#[nil ".|
|00004730| 09 c2 5c 22 c2 1b 1c 0c | 89 41 14 40 89 13 ad be |..\"....|.A.@....|
|00004740| c5 c6 0b 21 c7 0b 21 c2 | 1e 08 1e 09 1e 5c 6e 1e |...!..!.|.....\n.|
|00004750| 0b 0e 5c 6e ac a7 0e 09 | 89 41 16 09 40 89 16 08 |..\n....|.A..@...|
|00004760| ab 8d c6 0e 08 21 ab 6e | 0e 0b 54 16 0b aa 67 0e |.....!.n|..T...g.|
|00004770| 0b c5 56 ab 88 cc 0b cd | 0e 0b 21 5c 22 88 2c aa |..V.....|..!\".,.|
|00004780| 39 2a 87 22 20 5b 61 70 | 70 65 6e 64 20 78 6d 69 |9*." [ap|pend xmi|
|00004790| 6e 65 2d 66 69 65 6c 64 | 20 6e 69 6c 20 65 78 74 |ne-field| nil ext|
|000047a0| 20 62 75 74 74 6f 6e 73 | 20 30 20 78 6d 69 6e 65 | buttons| 0 xmine|
|000047b0| 2d 6d 69 6e 65 2d 62 75 | 74 74 6f 6e 2d 70 20 78 |-mine-bu|tton-p x|
|000047c0| 6d 69 6e 65 2d 67 65 74 | 2d 6e 65 69 67 68 62 6f |mine-get|-neighbo|
|000047d0| 75 72 73 20 6e 65 78 74 | 20 6e 65 69 67 68 62 6f |urs next| neighbo|
|000047e0| 75 72 73 20 6d 69 6e 65 | 70 20 6e 75 6d 20 78 6d |urs mine|p num xm|
|000047f0| 69 6e 65 2d 62 75 74 74 | 6f 6e 2d 63 68 61 6e 67 |ine-butt|on-chang|
|00004800| 65 2d 74 79 70 65 20 6e | 75 6d 62 65 72 2d 74 6f |e-type n|umber-to|
|00004810| 2d 73 74 72 69 6e 67 5d | 20 34 20 28 23 24 20 2e |-string]| 4 (#$ .|
|00004820| 20 31 38 30 32 33 29 5d | 29 0a 23 40 39 35 20 41 | 18023)]|).#@95 A|
|00004830| 20 73 75 62 72 6f 75 74 | 69 6e 65 20 66 6f 72 20 | subrout|ine for |
|00004840| 78 6d 69 6e 65 2d 63 72 | 65 61 74 65 2d 66 69 65 |xmine-cr|eate-fie|
|00004850| 6c 64 2e 0a 57 65 20 73 | 65 74 20 75 70 20 74 68 |ld..We s|et up th|
|00004860| 65 20 58 4d 69 6e 65 20 | 62 75 66 66 65 72 2c 20 |e XMine |buffer, |
|00004870| 73 65 74 20 75 70 20 74 | 68 65 20 6b 65 79 6d 61 |set up t|he keyma|
|00004880| 70 20 61 6e 64 20 73 6f | 20 6f 6e 2e 1f 0a 28 64 |p and so| on...(d|
|00004890| 65 66 61 6c 69 61 73 20 | 27 78 6d 69 6e 65 2d 62 |efalias |'xmine-b|
|000048a0| 75 66 66 65 72 2d 69 6e | 69 74 20 23 5b 6e 69 6c |uffer-in|it #[nil|
|000048b0| 20 22 08 ab 84 c1 08 21 | 88 c2 c3 21 10 8a 08 71 | ".....!|...!...q|
|000048c0| 88 c4 20 88 c5 c6 21 88 | c7 16 08 c9 16 5c 6e cb |.. ...!.|.....\n.|
|000048d0| 16 0c cd c9 ce cf 23 88 | d0 0e 11 21 88 d2 70 21 |......#.|...!..p!|
|000048e0| 88 d3 20 1e 14 d5 0e 14 | d6 5c 22 88 d7 0e 14 d8 |.. .....|.\".....|
|000048f0| d9 23 88 d7 0e 14 da d9 | 23 88 d7 0e 14 db d9 23 |.#......|#......#|
|00004900| 88 0e 14 29 16 06 dc dd | 21 29 87 22 20 5b 78 6d |...)....|!)." [xm|
|00004910| 69 6e 65 2d 62 75 66 66 | 65 72 20 6b 69 6c 6c 2d |ine-buff|er kill-|
|00004920| 62 75 66 66 65 72 20 67 | 65 74 2d 62 75 66 66 65 |buffer g|et-buffe|
|00004930| 72 2d 63 72 65 61 74 65 | 20 22 58 45 6d 61 63 73 |r-create| "XEmacs|
|00004940| 20 4d 69 6e 65 22 20 6b | 69 6c 6c 2d 61 6c 6c 2d | Mine" k|ill-all-|
|00004950| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 73 20 |local-va|riables |
|00004960| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |make-loc|al-varia|
|00004970| 62 6c 65 20 61 6e 6e 6f | 74 61 74 69 6f 6e 2d 6c |ble anno|tation-l|
|00004980| 6f 63 61 6c 2d 6d 61 70 | 2d 64 65 66 61 75 6c 74 |ocal-map|-default|
|00004990| 20 74 20 74 72 75 6e 63 | 61 74 65 2d 6c 69 6e 65 | t trunc|ate-line|
|000049a0| 73 20 78 6d 69 6e 65 2d | 6d 6f 64 65 20 6d 61 6a |s xmine-|mode maj|
|000049b0| 6f 72 2d 6d 6f 64 65 20 | 22 58 4d 69 6e 65 22 20 |or-mode |"XMine" |
|000049c0| 6d 6f 64 65 2d 6e 61 6d | 65 20 70 75 74 20 6d 6f |mode-nam|e put mo|
|000049d0| 64 65 2d 63 6c 61 73 73 | 20 73 70 65 63 69 61 6c |de-class| special|
|000049e0| 20 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 78 | use-loc|al-map x|
|000049f0| 6d 69 6e 65 2d 6b 65 79 | 6d 61 70 20 62 75 66 66 |mine-key|map buff|
|00004a00| 65 72 2d 64 69 73 61 62 | 6c 65 2d 75 6e 64 6f 20 |er-disab|le-undo |
|00004a10| 6d 61 6b 65 2d 73 70 61 | 72 73 65 2d 6b 65 79 6d |make-spa|rse-keym|
|00004a20| 61 70 20 6d 61 70 20 73 | 65 74 2d 6b 65 79 6d 61 |ap map s|et-keyma|
|00004a30| 70 2d 6e 61 6d 65 20 61 | 6e 6e 6f 74 61 74 69 6f |p-name a|nnotatio|
|00004a40| 6e 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 64 65 66 69 |n-local-|map defi|
|00004a50| 6e 65 2d 6b 65 79 20 62 | 75 74 74 6f 6e 31 20 78 |ne-key b|utton1 x|
|00004a60| 6d 69 6e 65 2d 61 63 74 | 69 76 61 74 65 2d 66 75 |mine-act|ivate-fu|
|00004a70| 6e 63 74 69 6f 6e 2d 62 | 75 74 74 6f 6e 20 62 75 |nction-b|utton bu|
|00004a80| 74 74 6f 6e 32 20 62 75 | 74 74 6f 6e 33 20 72 75 |tton2 bu|tton3 ru|
|00004a90| 6e 2d 68 6f 6f 6b 73 20 | 78 6d 69 6e 65 2d 6d 6f |n-hooks |xmine-mo|
|00004aa0| 64 65 2d 68 6f 6f 6b 5d | 20 34 20 28 23 24 20 2e |de-hook]| 4 (#$ .|
|00004ab0| 20 31 38 34 37 39 29 5d | 29 0a 28 64 65 66 61 6c | 18479)]|).(defal|
|00004ac0| 69 61 73 20 27 78 6d 69 | 6e 65 2d 73 65 6c 65 63 |ias 'xmi|ne-selec|
|00004ad0| 74 2d 62 75 74 74 6f 6e | 20 23 5b 28 65 78 74 29 |t-button| #[(ext)|
|00004ae0| 20 22 c0 09 c2 5c 22 c0 | 09 c3 5c 22 c4 1d 1e 06 | "...\".|..\"....|
|00004af0| 1e 07 0e 06 ab 8c 0e 07 | ab 84 0e 08 aa 88 0e 09 |........|........|
|00004b00| aa 84 c0 09 ca 5c 22 15 | 0e 0b ab 8a cc 0e 0b c0 |.....\".|........|
|00004b10| 0e 0b cd 5c 22 5c 22 88 | ce 09 cd cf 09 21 23 88 |...\"\".|.....!#.|
|00004b20| cc 09 0d 5c 22 88 09 89 | 16 0b 2b 87 22 20 5b 65 |...\"...|..+." [e|
|00004b30| 78 74 65 6e 74 2d 70 72 | 6f 70 65 72 74 79 20 65 |xtent-pr|operty e|
|00004b40| 78 74 20 78 6d 69 6e 65 | 2d 66 6c 61 67 67 65 64 |xt xmine|-flagged|
|00004b50| 20 78 6d 69 6e 65 2d 68 | 69 64 64 65 6e 20 6e 69 | xmine-h|idden ni|
|00004b60| 6c 20 73 65 6c 2d 67 6c | 79 70 68 20 68 69 64 64 |l sel-gl|yph hidd|
|00004b70| 65 6e 20 66 6c 61 67 67 | 65 64 20 78 6d 69 6e 65 |en flagg|ed xmine|
|00004b80| 2d 66 6c 61 67 67 65 64 | 2d 73 65 6c 2d 67 6c 79 |-flagged|-sel-gly|
|00004b90| 70 68 20 78 6d 69 6e 65 | 2d 75 70 2d 73 65 6c 2d |ph xmine|-up-sel-|
|00004ba0| 67 6c 79 70 68 20 78 6d | 69 6e 65 2d 73 65 6c 2d |glyph xm|ine-sel-|
|00004bb0| 67 6c 79 70 68 20 78 6d | 69 6e 65 2d 6b 65 79 2d |glyph xm|ine-key-|
|00004bc0| 73 65 6c 2d 62 75 74 74 | 6f 6e 20 73 65 74 2d 61 |sel-butt|on set-a|
|00004bd0| 6e 6e 6f 74 61 74 69 6f | 6e 2d 67 6c 79 70 68 20 |nnotatio|n-glyph |
|00004be0| 78 6d 69 6e 65 2d 6e 6f | 6e 2d 73 65 6c 65 63 74 |xmine-no|n-select|
|00004bf0| 65 64 2d 67 6c 79 70 68 | 20 73 65 74 2d 65 78 74 |ed-glyph| set-ext|
|00004c00| 65 6e 74 2d 70 72 6f 70 | 65 72 74 79 20 61 6e 6e |ent-prop|erty ann|
|00004c10| 6f 74 61 74 69 6f 6e 2d | 67 6c 79 70 68 5d 20 35 |otation-|glyph] 5|
|00004c20| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 78 6d |]).(defa|lias 'xm|
|00004c30| 69 6e 65 2d 6b 65 79 2d | 61 63 74 69 6f 6e 31 20 |ine-key-|action1 |
|00004c40| 23 5b 6e 69 6c 20 22 c0 | 09 c2 5c 22 89 1b ad 83 |#[nil ".|..\"....|
|00004c50| 0b 09 21 29 87 22 20 5b | 65 78 74 65 6e 74 2d 70 |..!)." [|extent-p|
|00004c60| 72 6f 70 65 72 74 79 20 | 78 6d 69 6e 65 2d 6b 65 |roperty |xmine-ke|
|00004c70| 79 2d 73 65 6c 2d 62 75 | 74 74 6f 6e 20 61 63 74 |y-sel-bu|tton act|
|00004c80| 69 6f 6e 31 20 61 63 74 | 69 6f 6e 5d 20 34 20 6e |ion1 act|ion] 4 n|
|00004c90| 69 6c 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |il nil])|.(defali|
|00004ca0| 61 73 20 27 78 6d 69 6e | 65 2d 6b 65 79 2d 61 63 |as 'xmin|e-key-ac|
|00004cb0| 74 69 6f 6e 32 20 23 5b | 6e 69 6c 20 22 c0 09 c2 |tion2 #[|nil "...|
|00004cc0| 5c 22 89 1b ab 8a c4 09 | 21 ab 85 0b 09 21 aa 82 |\"......|!....!..|
|00004cd0| c5 20 29 87 22 20 5b 65 | 78 74 65 6e 74 2d 70 72 |. )." [e|xtent-pr|
|00004ce0| 6f 70 65 72 74 79 20 78 | 6d 69 6e 65 2d 6b 65 79 |operty x|mine-key|
|00004cf0| 2d 73 65 6c 2d 62 75 74 | 74 6f 6e 20 61 63 74 69 |-sel-but|ton acti|
|00004d00| 6f 6e 32 20 61 63 74 69 | 6f 6e 20 78 6d 69 6e 65 |on2 acti|on xmine|
|00004d10| 2d 65 6e 6f 75 67 68 2d | 66 6c 61 67 67 65 64 2d |-enough-|flagged-|
|00004d20| 70 20 62 65 65 70 5d 20 | 34 20 6e 69 6c 20 6e 69 |p beep] |4 nil ni|
|00004d30| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 78 |l]).(def|alias 'x|
|00004d40| 6d 69 6e 65 2d 6b 65 79 | 2d 61 63 74 69 6f 6e 33 |mine-key|-action3|
|00004d50| 20 23 5b 6e 69 6c 20 22 | c0 09 c2 5c 22 89 1b ad | #[nil "|...\"...|
|00004d60| 83 0b 09 21 29 87 22 20 | 5b 65 78 74 65 6e 74 2d |...!)." |[extent-|
|00004d70| 70 72 6f 70 65 72 74 79 | 20 78 6d 69 6e 65 2d 6b |property| xmine-k|
|00004d80| 65 79 2d 73 65 6c 2d 62 | 75 74 74 6f 6e 20 61 63 |ey-sel-b|utton ac|
|00004d90| 74 69 6f 6e 33 20 61 63 | 74 69 6f 6e 5d 20 34 20 |tion3 ac|tion] 4 |
|00004da0| 6e 69 6c 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |nil nil]|).(defal|
|00004db0| 69 61 73 20 27 78 6d 69 | 6e 65 2d 6b 65 79 2d 71 |ias 'xmi|ne-key-q|
|00004dc0| 75 69 74 20 23 5b 6e 69 | 6c 20 22 c0 70 21 87 22 |uit #[ni|l ".p!."|
|00004dd0| 20 5b 6b 69 6c 6c 2d 62 | 75 66 66 65 72 5d 20 32 | [kill-b|uffer] 2|
|00004de0| 20 6e 69 6c 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 | nil nil|]).(defa|
|00004df0| 6c 69 61 73 20 27 78 6d | 69 6e 65 2d 6b 65 79 2d |lias 'xm|ine-key-|
|00004e00| 6e 65 77 20 23 5b 6e 69 | 6c 20 22 c0 20 87 22 20 |new #[ni|l ". ." |
|00004e10| 5b 78 6d 69 6e 65 2d 66 | 69 65 6c 64 2d 63 72 65 |[xmine-f|ield-cre|
|00004e20| 61 74 65 5d 20 31 20 6e | 69 6c 20 6e 69 6c 5d 29 |ate] 1 n|il nil])|
|00004e30| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 78 6d 69 6e |.(defali|as 'xmin|
|00004e40| 65 2d 6b 65 79 2d 64 6f | 77 6e 2d 72 69 67 68 74 |e-key-do|wn-right|
|00004e50| 20 23 5b 6e 69 6c 20 22 | c0 20 88 c1 20 87 22 20 | #[nil "|. .. ." |
|00004e60| 5b 78 6d 69 6e 65 2d 6b | 65 79 2d 64 6f 77 6e 20 |[xmine-k|ey-down |
|00004e70| 78 6d 69 6e 65 2d 6b 65 | 79 2d 72 69 67 68 74 5d |xmine-ke|y-right]|
|00004e80| 20 31 20 6e 69 6c 20 6e | 69 6c 5d 29 0a 28 64 65 | 1 nil n|il]).(de|
|00004e90| 66 61 6c 69 61 73 20 27 | 78 6d 69 6e 65 2d 6b 65 |falias '|xmine-ke|
|00004ea0| 79 2d 64 6f 77 6e 2d 6c | 65 66 74 20 23 5b 6e 69 |y-down-l|eft #[ni|
|00004eb0| 6c 20 22 c0 20 88 c1 20 | 87 22 20 5b 78 6d 69 6e |l ". .. |." [xmin|
|00004ec0| 65 2d 6b 65 79 2d 64 6f | 77 6e 20 78 6d 69 6e 65 |e-key-do|wn xmine|
|00004ed0| 2d 6b 65 79 2d 6c 65 66 | 74 5d 20 31 20 6e 69 6c |-key-lef|t] 1 nil|
|00004ee0| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00004ef0| 20 27 78 6d 69 6e 65 2d | 6b 65 79 2d 75 70 2d 72 | 'xmine-|key-up-r|
|00004f00| 69 67 68 74 20 23 5b 6e | 69 6c 20 22 c0 20 88 c1 |ight #[n|il ". ..|
|00004f10| 20 87 22 20 5b 78 6d 69 | 6e 65 2d 6b 65 79 2d 75 | ." [xmi|ne-key-u|
|00004f20| 70 20 78 6d 69 6e 65 2d | 6b 65 79 2d 72 69 67 68 |p xmine-|key-righ|
|00004f30| 74 5d 20 31 20 6e 69 6c | 20 6e 69 6c 5d 29 0a 28 |t] 1 nil| nil]).(|
|00004f40| 64 65 66 61 6c 69 61 73 | 20 27 78 6d 69 6e 65 2d |defalias| 'xmine-|
|00004f50| 6b 65 79 2d 75 70 2d 6c | 65 66 74 20 23 5b 6e 69 |key-up-l|eft #[ni|
|00004f60| 6c 20 22 c0 20 88 c1 20 | 87 22 20 5b 78 6d 69 6e |l ". .. |." [xmin|
|00004f70| 65 2d 6b 65 79 2d 75 70 | 20 78 6d 69 6e 65 2d 6b |e-key-up| xmine-k|
|00004f80| 65 79 2d 6c 65 66 74 5d | 20 31 20 6e 69 6c 20 6e |ey-left]| 1 nil n|
|00004f90| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00004fa0| 78 6d 69 6e 65 2d 6b 65 | 79 2d 64 6f 77 6e 20 23 |xmine-ke|y-down #|
|00004fb0| 5b 6e 69 6c 20 22 c0 09 | c2 5c 22 1b c0 09 c4 5c |[nil "..|.\"....\|
|00004fc0| 22 1d c6 0b 0d 54 5c 22 | 89 1e 07 ab 86 c8 0e 07 |"....T\"|........|
|00004fd0| 21 aa 86 c8 c6 0b c9 5c | 22 21 2b 87 22 20 5b 65 |!......\|"!+." [e|
|00004fe0| 78 74 65 6e 74 2d 70 72 | 6f 70 65 72 74 79 20 78 |xtent-pr|operty x|
|00004ff0| 6d 69 6e 65 2d 6b 65 79 | 2d 73 65 6c 2d 62 75 74 |mine-key|-sel-but|
|00005000| 74 6f 6e 20 78 6d 69 6e | 65 2d 78 20 78 20 78 6d |ton xmin|e-x x xm|
|00005010| 69 6e 65 2d 79 20 79 20 | 78 6d 69 6e 65 2d 66 69 |ine-y y |xmine-fi|
|00005020| 65 6c 64 2d 62 75 74 74 | 6f 6e 2d 61 74 20 65 78 |eld-butt|on-at ex|
|00005030| 74 20 78 6d 69 6e 65 2d | 73 65 6c 65 63 74 2d 62 |t xmine-|select-b|
|00005040| 75 74 74 6f 6e 20 31 5d | 20 35 20 6e 69 6c 20 6e |utton 1]| 5 nil n|
|00005050| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00005060| 78 6d 69 6e 65 2d 6b 65 | 79 2d 75 70 20 23 5b 6e |xmine-ke|y-up #[n|
|00005070| 69 6c 20 22 c0 09 c2 5c | 22 1b c0 09 c4 5c 22 1d |il "...\|"....\".|
|00005080| c6 0b 0d 53 5c 22 89 1e | 07 ab 86 c8 0e 07 21 aa |...S\"..|......!.|
|00005090| 87 c8 c6 0b 0e 09 5c 22 | 21 2b 87 22 20 5b 65 78 |......\"|!+." [ex|
|000050a0| 74 65 6e 74 2d 70 72 6f | 70 65 72 74 79 20 78 6d |tent-pro|perty xm|
|000050b0| 69 6e 65 2d 6b 65 79 2d | 73 65 6c 2d 62 75 74 74 |ine-key-|sel-butt|
|000050c0| 6f 6e 20 78 6d 69 6e 65 | 2d 78 20 78 20 78 6d 69 |on xmine|-x x xmi|
|000050d0| 6e 65 2d 79 20 79 20 78 | 6d 69 6e 65 2d 66 69 65 |ne-y y x|mine-fie|
|000050e0| 6c 64 2d 62 75 74 74 6f | 6e 2d 61 74 20 65 78 74 |ld-butto|n-at ext|
|000050f0| 20 78 6d 69 6e 65 2d 73 | 65 6c 65 63 74 2d 62 75 | xmine-s|elect-bu|
|00005100| 74 74 6f 6e 20 78 6d 69 | 6e 65 2d 68 65 69 67 68 |tton xmi|ne-heigh|
|00005110| 74 5d 20 35 20 6e 69 6c | 20 6e 69 6c 5d 29 0a 28 |t] 5 nil| nil]).(|
|00005120| 64 65 66 61 6c 69 61 73 | 20 27 78 6d 69 6e 65 2d |defalias| 'xmine-|
|00005130| 6b 65 79 2d 72 69 67 68 | 74 20 23 5b 6e 69 6c 20 |key-righ|t #[nil |
|00005140| 22 c0 09 c2 5c 22 1b c0 | 09 c4 5c 22 1d c6 0b 54 |"...\"..|..\"...T|
|00005150| 0d 5c 22 89 1e 07 ab 86 | c8 0e 07 21 aa 86 c8 c6 |.\".....|...!....|
|00005160| c9 0d 5c 22 21 2b 87 22 | 20 5b 65 78 74 65 6e 74 |..\"!+."| [extent|
|00005170| 2d 70 72 6f 70 65 72 74 | 79 20 78 6d 69 6e 65 2d |-propert|y xmine-|
|00005180| 6b 65 79 2d 73 65 6c 2d | 62 75 74 74 6f 6e 20 78 |key-sel-|button x|
|00005190| 6d 69 6e 65 2d 78 20 78 | 20 78 6d 69 6e 65 2d 79 |mine-x x| xmine-y|
|000051a0| 20 79 20 78 6d 69 6e 65 | 2d 66 69 65 6c 64 2d 62 | y xmine|-field-b|
|000051b0| 75 74 74 6f 6e 2d 61 74 | 20 65 78 74 20 78 6d 69 |utton-at| ext xmi|
|000051c0| 6e 65 2d 73 65 6c 65 63 | 74 2d 62 75 74 74 6f 6e |ne-selec|t-button|
|000051d0| 20 31 5d 20 35 20 6e 69 | 6c 20 6e 69 6c 5d 29 0a | 1] 5 ni|l nil]).|
|000051e0| 28 64 65 66 61 6c 69 61 | 73 20 27 78 6d 69 6e 65 |(defalia|s 'xmine|
|000051f0| 2d 6b 65 79 2d 6c 65 66 | 74 20 23 5b 6e 69 6c 20 |-key-lef|t #[nil |
|00005200| 22 c0 09 c2 5c 22 1b c0 | 09 c4 5c 22 1d c6 0b 53 |"...\"..|..\"...S|
|00005210| 0d 5c 22 89 1e 07 ab 86 | c8 0e 07 21 aa 87 c8 c6 |.\".....|...!....|
|00005220| 0e 09 0d 5c 22 21 2b 87 | 22 20 5b 65 78 74 65 6e |...\"!+.|" [exten|
|00005230| 74 2d 70 72 6f 70 65 72 | 74 79 20 78 6d 69 6e 65 |t-proper|ty xmine|
|00005240| 2d 6b 65 79 2d 73 65 6c | 2d 62 75 74 74 6f 6e 20 |-key-sel|-button |
|00005250| 78 6d 69 6e 65 2d 78 20 | 78 20 78 6d 69 6e 65 2d |xmine-x |x xmine-|
|00005260| 79 20 79 20 78 6d 69 6e | 65 2d 66 69 65 6c 64 2d |y y xmin|e-field-|
|00005270| 62 75 74 74 6f 6e 2d 61 | 74 20 65 78 74 20 78 6d |button-a|t ext xm|
|00005280| 69 6e 65 2d 73 65 6c 65 | 63 74 2d 62 75 74 74 6f |ine-sele|ct-butto|
|00005290| 6e 20 78 6d 69 6e 65 2d | 77 69 64 74 68 5d 20 35 |n xmine-|width] 5|
|000052a0| 20 6e 69 6c 20 6e 69 6c | 5d 29 0a 28 70 72 6f 76 | nil nil|]).(prov|
|000052b0| 69 64 65 20 27 78 6d 69 | 6e 65 29 0a             |ide 'xmi|ne).    |
+--------+-------------------------+-------------------------+--------+--------+